Just use File::Find:

use File::Find;

my $dir  = 'C:\Documents and Settings';
my $from = 'abc.lnk';
my $to   = 'def.lnk';

find(sub {
    if ($_ eq $from) {
        print "$File::Find::name -> $to\n";
        rename($_, $to);
    }
}, $dir);
[download]

- Miller