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