my $thr = new Thread \&abfrage, $nick, $liste, $proxy; 
my $thr = new Thread \&abfrage, $nick, $liste, $proxy;