#!/usr/bin/perl
use strict;
use Continuity;
Continuity->new( port => 8080 )->loop;
sub main {
my ($r) = @_;
$r->print(<<' END');
Hello
END
while(1) {
$r->next;
print STDERR $r->param('result') . "\n";
print "> ";
my $cmd = <>;
# $r->send_headers(
# "HTTP/1.1 200\r\n",
# "Content-type: text/javascript\r\n\r\n");
$r->print($cmd);
}
}