in reply to Moving files

While you are at it, you may want to clean up the hard-coded path in 
   print "Moving $_ to the K:/ATM \n";

[download]
and replace it with 
   print "Moving $_ to  $new\n";

[download]

     "Income tax returns are the most imaginative fiction being written today." -- Herman Wouk

In Section Seekers of Perl Wisdom