my $sourcefile  = 'c:/appl/process/attr_name.txt';
my $destination = '//System1/ShareDir';

$sourcefile = slashtobackslash($sourcefile);
$destination = slashtobackslash($destination);
system("copy $sourcefile $destination");
}

sub slashtobackslash
{
    my $value = $_[0];
    $value =~ s-/-\\-g;
    return $value;
}

##</code><code>##

use Net::FTP;
    
$ftp = Net::FTP->new("targetsystem", Debug => 0);
$ftp->login("anonymous");
$ftp->put("c:\\test11.pl");
$ftp->quit;