my $host = "ftp.......";
my $user = "name";
my $password = "pwd";

my $file = "RMA".$FORM{'auftragnr'}.".pdf";
my $file2 = "test500.pdf";

$ftp = Net::FTP->new($host, Passive => 1, Debug => 1) or die "error connecting\n";
$ftp->login($user,$password);
$ftp->cwd("/etikett/")  or die "Verzeichniswechsel fehlerhaft ", $ftp->message;

my @files=$ftp->ls();

#foreach (@files) {
#$ftp->ascii();

$ftp->get("$file") ||  die &ftpfehler;

$ftp->quit();