print "Enter the month and day (ex:0605)\n";
$date = <stdin>;
chomp($date);

move(c:/atmcaf00,K:/atm/atmcaf00$date);
move(c:/atmcaf00,K:/atm/atmcaf01$date);
move(c:/atmcaf00,K:/atm/atmcaf12$date);
move(c:/atmcaf00,K:/atm/atmcmf01$date);
move(c:/atmcaf00,K:/atm/atmcmf12$date);

print "All the ATM files have been renamed and move to the ATM folder\n";

$wait = <stdin>;