1: #!/usr/bin/perl
   2: $a="User-Agent:PlMk";$u="
   3: xavier.penguinpowered.com
   4: ";$h="GET / HTTP/1.\n";$u
   5: =~s/\n//gs;$d=`echo "$h$a
   6: "|nc $u 80`;$d=~s/.+?ml\r
   7: (.+)/$1/s;$d=~s/\n+|\s+ \
   8: / /gsx;$d=~s/<a.+?f="(.*?
   9: )">(.+?)<\/a>/$2($1)/sgx;
  10: $d=~s/<(br|p|li)>/\n/g;$d
  11: =~s/<.+?>//gsx;print"$d";