sub FileMeta {
  my $fh = shift;
  my ($dev, $inode, $size, $mtime) = ($fh ? stat($fh) : stat(_))[0,1,7,9];
  return join ":", $size, $dev, $inode, $mtime;
}

##</code><code>##

sub FileMeta {
  my $fh = shift;
  # glue together the size, dev, inode, and mtime
  return join ":", ($fh ? stat($fh) : stat(_))[7,0,1,9];
}