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