I replaced move with print, and it worked for me. In other words, I don't think it's a Perl problem. Why don't you check what error move returned?

if (move("$old$_","$new$_$date")) {
    print "$_ has been moved to the K:/ATM\n";
} else {    
    print "Could not move $_: $!\n";
}
[download]