Select Code to Download

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