#!/usr/bin/perl
use strict;
use Continuity;
Continuity->new( port => 8080 )->loop;
sub main {
my ($r) = @_;
$r->print(q|
LOADING
Hello
|);
$r->next;
while(1) {
print "Enter command: ";
my $cmd = <>;
$r->print($cmd);
$r->next;
}
$r->print(q{
alert('hello!');
for(var i = 1; i < 100; i++) {
$('#msg').append('hello
');
}
});
$r->next;
sleep(5);
$r->print(q{
alert('hello world!');
});
}