use IO::All;

my $response = shift;
my $target = shift;

my $server = io(":9207");
$server->autoclose(0);
my $sock = $server->accept;

$sock->autoclose(0);

my $doc;
while (my $line = $sock->readline) {
    last if $line =~ m/\A\r?\n\Z/;
    $doc .= $line;
}

{ $doc > io($target)->assert; }
$sock->print(io($response)->slurp);
$sock->shutdown;

# and it was over ... before it began
exit(0);


##</code><code>##

$h=$ENV{HOME};my@q=split/\n\n/,`cat $h/.quotes`;$s="$h/."
."signature";$t=`cat $s`;print$t,"\n",$q[rand($#q)],"\n";