sub contents {
  open (FH, "< $FileInfoName") or die "Can't open $FileInfoName for read: $!";
 my @lines = <FH>;
 return @lines;
 close FH or die "Cannot close $FileInfoName: $!";
}

##</code><code>##

use strict;
use TYPFileInfo;

$FileInfoName = "FakeText.txt";

print "\nFilename: " . name();
print "\nExtension: " . extension();
print "\nModified: " . localtime( modified() );
print "\nBytes: " . bytes();
print "\nLines: " . lines();
print "\nType: " . type();
print "\nContents: " . contents();