if ( ! copy($oldlocation, $newlocation) ) { print "Copy failed: $!\n"; }