use IO::File;

my $fh = IO::File->new($filename, "r")
  or die "unable to open $filename: $!";
 
for my $line ( $fh->getlines() ) {
  chomp $line;
  print "[$line]\n";
}