#!/usr/bin/perl

use warnings;
use strict;

use Net::FTP;

print "Hello, FTPedWorld...\n";

my $ftp = Net::FTP->new("ftp.ul.to", Debug => 1) or die "Cannot connect to ftp.ul.to: $@";
$ftp->login("username",'geheim') or die "Cannot login ", $ftp->message;
my $ret = $ftp->put('someavi.avi');
print "ret: ".$ret."\n";