use strict;
use warnings;
use File::Copy;

my $source="C:\\sandboxes\\source_backup\\source_backup\\source_develop\\source_folder\\source_part\\source_specific\\source_common\\rb_srcc_sourcedevelopfolderpartspe_Interfacessourcecommonspecific.h";
my $target="C:\\sandboxes\\target_backup\\target_backup\\target_develop\\generated\\_hnv_scan\\_source_develop\\source_folder\\source_part\\source_specific\\source_common";

print "OK 1\n" if -e $source;
print "OK 2\n" if -d $target;
copy($source,$target) or die "could not do: $!";
print ("done");

##</code><code>##

C:\_32\pscrpt>perl try.pl
OK 1
OK 2
done
C:\_32\pscrpt>

##</code><code>##

C:\_32\pscrpt>perl try.pl
OK 1
could not do:  at try.pl line 10.