denver% find2perl '$dat/' -type f -atime +'$deldatdays' -exec rm {} \; [~]
#!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
if $running_under_some_shell;

require "find.pl";

# Traverse desired filesystems


&find('$dat/');

exit;
sub wanted {
(($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
-f _ &&
(int(-A _) > $deldatdays) &&
(unlink($_) || warn "$name: $!\n");
}