CPAN.pm (6)

• #!/usr/local/bin/perl -w

• use strict;

• use CPAN;

• # Get latest CPAN version

• my $mod;

• eval { $mod = CPAN::Shell->expand('Module','Foo::Bar') };

• if ( $@ || ! defined $mod ) {

• print 'none';

• }

• else {

• print 'CPAN version: ' . $mod->cpan_version();

• }

• # ...