use strict;
use warnings;
use Cwd;
use File::NCopy qw(cp);

my $home_dir = getcwd;
   $home_dir =~ s|/|\\|g;
my $remote_cf_cli_path = "\\\\10.10.1.2\E\$\\DATA\\INST\\MASTER\\CLIENT\\CF\\2.0";
cp \1,"$remote_cf_cli_path\\*", "$home_dir" or die "Copy failed: $!";