Select Code to Download

use file_read;
my $a=0;
...
$a+=1;
}
print "$a";

package file_read;
while(<STDIN>){
print;
}
1;

perl fileread.pl </tmp/file