What I would do is remove the -exec clause from the find command, capture the command's output into perl, and delete/log the files from inside perl:

chomp (my @files = `find somedir -name somename -mtime 22`);
my %del_log = ();
for my $f (@files) {
    unlink $f;
    $del_log{$f} = localtime;
}
[download]

...or something to that effect.

Hope this helps.

-pete