#!/usr/bin/perl

print "Status: 404 Not Found\n\n";


##</code><code>##

$ telnet www.chargrill.com 80
Trying 69.136.244.189...
Connected to chargrill.com.
Escape character is '^]'.
GET /404.cgi HTTP/1.0
Host: www.chargrill.com

HTTP/1.1 404 Not Found
Date: Sat, 29 Apr 2006 20:54:33 GMT
Connection: close
Content-Type: text/plain



##</code><code>##

$,=42;for(34,0,-3,9,-11,11,-17,7,-5){$*.=pack'c'=>$,+=$_}for(reverse split//=>$*
){$%++?$ %%2?push@C,$_,$":push@c,$_,$":(push@C,$_,$")&&push@c,$"}$C[$#C]=$/;($#C
>$#c)?($ c=\@C)&&($ C=\@c):($ c=\@c)&&($C=\@C);$%=$|;for(@$c){print$_^$$C[$%++]}