you gotta be connected to run this one..
Comments?

                  $_=join//,qw|
            _________________________
        ---------------------------------
        w w w . p e r l m o n k s . o r g
        ---------------------------------
        |;s;[_\d-];;g;use Socket; sub xx{
        print pack "C*",@_}($x,$$_,$.,$-)
        =(inet_ntoa inet_aton$_)=~m,(\d*)
        .(\d+).(\d*).(\d+),x;push@_,($$_-
        $--20);($a, $b)=split//, $-; --$a
        ;push@_,$b.--$a,(($$_-10)/2);s;s/
        push@_/t;push @_,undef;gs;push@_,
        int(($.+$-+$$_+$x)/6.4722201);&xx
[download]

Edit: chipmunk 2001-05-29