Select Code to Download

BEGIN { push @INC, ".." }
use strict 1.04;

BEGIN { 
  use lib "..";  # or unshift @INC, ".."
}
use strict 1.04;

#!/usr/bin/perl -lW   # catch all bleeping errors

...

main now using strict 1.03 qw(refs) from module /usr/share/perl/5.8/st
+rict.pm

 
BEGIN {
  eval {
...
 }; 
 revert() if $@;
}

 
eval " use Foo::Bar 5.01 qw| ... | ";
revert() if $@;