diff -u ?.1
--- a.1 2009-04-04 20:45:21.415888190 +0200
+++ b.1 2009-04-04 20:46:01.200703520 +0200
@@ -9,16 +9,17 @@
     my $loginpost = $mech->post(
         'http://www.quakelive.com/user/login',
         {
-            u => 'email@domain.com',
-            p => 'meinpass',
+            u => 'user@mail.com',
+            p => 'passwort',
             r => '0',
         }
     );
     $mech->get("http://www.quakelive.com/user/load");
     my $site = $mech->content();
-    if($site =~/".+XAID":"(.+)","STATUS/){
-        return $1;
+    if($site =~/USERNAME":"(.+)","XAID":"(.+)","STATUS/){
+        push(@xmppdata,("$1","$2"));
     } else {
-        print "fail";
+        print "Fail!\n$site";
+        exit;
     }
 }