Select Code to Download

#!perl
# p1.pl
...
my $p2 = $FindBin::Bin.'/p2.pl';
my $output = `$p2`;
print $output;