$a="User-Agent:PlMk";$u="
xavier.penguinpowered.com
";$h="GET / HTTP/1.\n";$u
=~s/\n//gs;$d=`echo "$h$a
"|nc $u 80`;$d=~s/.+?ml\r
(.+)/$1/s;$d=~s/\n+|\s+ \
/ /gsx;$d=~s/<a.+?f="(.*?
)">(.+?)<\/a>/$2($1)/sgx;
$d=~s/<(br|p|li)>/\n/g;$d
=~s/<.+?>//gsx;print"$d";