sub file_size {
  my ($file) = @_;
  if( ! -f $file ) {
    return 0;
  }
  my $dummy;
  my $size;
  ($dummy,$dummy, $dummy, $dummy, $dummy, $dummy, $dummy, $size, $dummy,
          $dummy, $dummy, $dummy, $dummy) = stat($file);
  return $size;
}