$len = -s $file;  # not length($file)