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