Select Code to Download

sub file_size {
  my ($file) = @_;
...
          $dummy, $dummy, $dummy, $dummy) = stat($file);
  return $size;
}

sub file_size { -s shift || 0 }