use Tie::File;
  ....
  my @content;
  tie @content, 'Tie::File', $filename or die "Can not read file $filename ($!)";
  print "First Line: $content[0]\n";
  print "Number of lines in file: $#content\n";