susd perl -le 'opendir my $dh, "." or die $!; while (my $f = readdir($dh)) { next if $f =~ /^\./; if (-f $f && -s _ == 0 && -M _ > 1) { unlink $f } }'