#!/usr/bin/perl
use strict;
$|++;

use File::Find;

find sub {
  return unless /^(\d+)$/ and -f and -s _ > 65535 and -A _ > 0.1;
  system '/bin/gzip', "-9v", $File::Find::name;
}, "/home/merlyn/Mail";