Select Code to Download

#!/usr/bin/perl 

while ($line = <>){
...
    }

}

#!/usr/bin/perl -n

my ($file, $rec) = split /\|/, $_, 2;
...
}

$fh{$file}->print $rec;