## obviously, this code will not work -- it's just pseudocode
    use Net::FTP;
    my $ftp = Net::FTP->new( 'servername' );
    $ftp->login( 'foo', 'passwd' );
    $ftp->put( '/path/to/the/file/that/you/want/to/upload' );
    $ftp->quit;