my $ftp = Net::FTP->new("my.ftp.server", Debug => 1, Passive => 1) or return;
$ftp->login("myuser","mypass") or return;
$ftp->cwd($dir) or $ftp->mkdir($dir, 1);
$ftp->cwd($dir) or return;
$ftp->binary;
$ftp->put($file) or return;
$ftp->quit or return;