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