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