sub verbinden {


$host = $host_ip_entry->get;


$ftp=Net::FTP->new($host, Debug=>1, Hash=>1);
unless (defined($ftp)) {
print "verbindung zu $host fehlgeschlagen\n";
return 0;
}

$benutzername = $username_entry->get;
$passwort = $passwort_entry->get;


$ftp->login ($benutzername, $passwort);
unless (defined($ftp)) {
print "login zu $host fehlgeschlagen\n";
return 0;
}


my $variable;
close STDERR;
open (STDERR, '>', \$variable) or die("Can't open STDERR: $!");




$ausgabe_listbox->insert('end', $variable);
$ausgabe_listbox -> update;


}