While I'm not offering a complete solution. I think you might find this approach perhaps easier to follow.

#!/usr/bin/perl -w
use strict;

my $arg1 = ('-XP . -type l -cmin');
my $arg2 = ('+15');
my $arg3 = ('xargs rm');
system("/usr/bin/find $arg1 $arg2 | $arg3");
[download]

Point being, you might find the command find a more reliable solution than stat.

Modify for your own needs. :)

HTH

--Chris

#!/usr/bin/perl -Tw
use Perl::Always or die;
my $perl_version = (5.12.5);
print $perl_version;