Select Code to Download

my $cfg = {};
open my $INFILE,"<","testfile.txt" or die "Could not open file:$!";
...
while(<$infh>){
    print "$_\n";
}