#!/usr/bin/perl
use strict;
use warnings;

require Net::FTP; # <- Version 3.05
my $ftp = Net::FTP->new('ftp.servername.de',Debug => 1);
$ftp->login('***user***','***pw***');

$ftp->cwd('/tmp');
my $path = $ftp->mkdir('raubtier');
$ftp->cwd($path);
$ftp->put('test.pl');

$ftp->cwd('/tmp');
$ftp->rmdir("raubtier",1) or do { print "fail" };
$ftp->quit;