use Net::FTP::File;

my $ftp = Net::FTP->new("fanera.6te.net", Debug => 0) or die "Cannot connect to some.host.name: $@";
$ftp->login("fanera.6te.net",'6d9dh87') or die "Cannot login ", $ftp->message;

$file="3.txt";
$newfile="4.txt";


$ftp->copy($file,$newfile) or warn $ftp->message;
$ftp->chmod(777, $newfile) or warn $ftp->message;