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

require Net::FTP; # <- Version 3.05
my $ftp = Net::FTP->new('ftp.servername.de');
$ftp->login('user','pass');
$ftp->rmdir("/verzeichnis/1",1) or do { print "fail" };
$ftp->quit;