Select Code to Download

open my $IN, '<', 'transaction' or die "Cannot open 'transaction' for 
+reading: $!";
...
while (<$IN>) {
   ...
}