or download this
++$|;$==25;use WWW::Mechanize;($q)=$^X=~m;.*[\\/]([^.]*);;($u,$m,$^,$t
+,$d,$n,$~
,$e)=split/[.]/,(join'',map{$_^chr 8}split//,'}{m&Egfc{(&xzaf|&|qxm&la
+{xdiq'
...
){${$e}=$_;${$~}||=::{"$q$m$~"};my($a)=map{$_->get("$qm/?$d$t=$^&op=lo
+gin&$n"
."&user=$u&$~=${$~}&sexisgood=submit&.cgifields=expires");$_->get("$qm
+/?".
"$d$t=$^&$n&user=jonadab&op=$e&${e}_send=talk&$e=${$e}");$_}a}}else{&_
+}