or download this
use strict;
use warnings;
...
File::Copy::copy (FILENAME_1, FILENAME2) or warn "Spaced to non-spaced
+ failed with Copy\n";
File::Copy::copy (FILENAME1, FILENAME_2) or warn "Non-spaced to spaced
+ failed with Copy\n";
File::Copy::copy (FILENAME_1, FILENAME_2) or warn "Spaced to spaced fa
+iled with Copy\n";