CGI Perl

  1. Home
  2. Perl
  3. CGI
  4. Server push
#!/usr/bin/perl
use CGI::Push;
$co = new CGI::Push;
$co->do_push(-next_page=>\&page);
sub page
{
    my($obj, $counter) = @_;
    return undef if $counter > 50;
    return
        $co->start_html,
        $co->br,
        $co->center($co->h1('Server Push Example')),
        $co->br,
        $co->center($co->h1('Counter: ', $counter)),
        $co->end_html;
}