print "Copying '$source' to '$destination'\n";
copy($source,$destination) or die $!;