CPAN.pm (5)

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

• use strict;

• eval { require StrangeModule };

• if ($@) {

• print "Modulo non presente. Download dal CPAN [y/n]? ";

• my $answer = <STDIN>;

• chomp $answer;

• if ( $answer =~ /y|yes/i) {

• require CPAN;

• CPAN::install StrangeModule;

• }

• else {

• die("[Fatal]: il modulo StrangeModule è necessario!\n");

• }

• }

• # Il programma continua...