Select Code to Download

sub contents {
  open (FH, "< $FileInfoName") or die "Can't open $FileInfoName for re
+ad: $!";
...
 return @lines;
 close FH or die "Cannot close $FileInfoName: $!";
}

use strict;
use TYPFileInfo;
...
print "\nLines: " . lines();
print "\nType: " . type();
print "\nContents: " . contents();