Select Code to Download

#!/usr/bin/perl -w
open (OUT, ">junk.txt") or die $!;
...
open (IN,"<junk.txt");
print while(<IN>);
close(IN) or die $!;

hi
hi
hi