#!/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;

$ftp->cwd("/");
$ftp->binary;

$ftp->pasv;
my $ret	= $ftp->command('PUT', ".\\irgendwas.jpg");
print "ret_val: ".$ret."\n";