my $file = './test_file';

#my $line = inFile->new($file);
open (my $FILE, '<', $file) 
   || die "failed to open $fname ($!)\n";

while (<$FILE>) {
#print $line->getLine();
    print;
}
close $FILE || die "failed to open $fname ($!)\n";