my $command = qq(copy "$source1" "$dest1") or die "Couldn't copy $source1: $!";