copy($source, $targetdir1) or die "Copy Failed: $!";

##</code><code>##

print     copy($source, $targetdir1) or die "Copy Failed: $!";