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

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