#!/usr/bin/perl -w

use strict;
use warnings;
use Net::FTP;

my $host = "127.0.0.1";
my $user ="test";
my $password ="test";
my $debugLevel = 0;
my $timeout = 240;

my $ftp = Net::FTP->new($host, Debug => 0) or die "Verbindungsfehler: $@\n";
print "success";
$ftp->login($user, $password) or die  "Anmeldungsfehler:". $ftp->message;

$ftp->quit();