sub abfrage{
    my ($name, $proxy, $comp, $user, @liste) = @_;
    print "Your name: $name - Proxy: $proxy - Host: $comp ...\n";
}