Select Code to Download

my $sourcefile  = 'c:/appl/process/attr_name.txt';
my $destination = '//System1/ShareDir';
...
    $value =~ s-/-\\-g;
    return $value;
}

use Net::FTP;
    
...
$ftp->login("anonymous");
$ftp->put("c:\\test11.pl");
$ftp->quit;