copy( $oldlocation, $newlocation ) or die "Copy failed: $!";