Select Code to Download

my $cfg = {};
open (INFILE,"<testfile.txt") || die "Could not open file\n$!\n";
...
__END__
GLOB(0x20eab18)

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