The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
AWWAIID / Continuity-1.5 / eg / minimal-serverside.pl 
#!/usr/bin/perl

use strict;
use Continuity;

Continuity->new( port => 8080 )->loop;

sub main {
  my ($r) = @_;
  $r->print(<<'  END');
    <html>
      <head>
        <script type="text/javascript" src="/jquery.js"></script>
        <script type="text/javascript">

          function listenLoop(s) {
            $.get('/', {
                result: s
              },
              function(v){
                var result;
                try { result = eval(v) } catch(e) { result = e.message }
                listenLoop(result);
              }
            );
          }

          $(function(){
            listenLoop();
          });
        </script>
      </head>
      <body>
        <h1>Hello</h1>
      </body>
    </html>
  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);
  }
}