use strict;
use warnings;
use Net::FTP;
 
use constant HOSTNAME => 'ftp.ul.net';
use constant USERNAME => 'username' ;
use constant PASSWORD => 'sicher123';
 

 
my $host = Net::FTP->new(HOSTNAME)
    or die "Cannot connect to ", HOSTNAME, ": $!\n";
 
$host->login(USERNAME, PASSWORD)
    or die "login error: ", $host->message, $/;
 
$host->put (test.txt)
    or die "cannot put test.txt: ", $host->message, $/;
 
$host->quit;