use file::NCopy qw(cp);
my $home_dir = getcwd;
    $home_dir =~ s|/|\\|g;

my $remote_cf_cli_path = "$remote_path\\DATA\\INST\\MASTER\\CLIENT\\CF\\2.0";

cp \1,"$remote_cf_cli_path\\*.*", "$home_dir", or die "Copy failed: $!";