Select Code to Download

#!/usr/bin/perl
use strict;
...

print "$one $two $three $four\n";

#!/usr/bin/perl
use strict;
...
    }
1;

[sandy][~] perl foo.pl
one two three four
1 2 3 4