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: $!";
}