#!/usr/bin/perl -wT
    use strict;
    use Net::FTP;

    use constant LOCAL_FILE => 'test.tgz';

    my $ftp = Net::FTP->new("some.host.name", Debug => 0);
    $ftp->login("anonymous",'-anonymous@');
    $ftp->cwd("/pub");
    $ftp->put( LOCAL_FILE );
    $ftp->quit;