You obviously did not really understand the Perl syntax to open and read a file.

Try something like this:

#! /usr/bin/perl
use strict;
use warnings;

open (my $fh, "<", "test.txt") or die "Could not open test file $! \n"
+;
while (<$fh>) {
     # blah blah
}
[download]