my $cfg = {};
open my $INFILE,"<","testfile.txt" or die "Could not open file:$!";
$cfg->{infile} = $INFILE;
my $infh = $cfg->{infile};

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