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

while(<$$cfg{infile}>){
    print "$_\n";
}
__END__
GLOB(0x20eab18)


##</code><code>##

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

while(<$infh}>){
    print "$_\n";
}