Mega Code Archive

 

Categories / Perl / CGI

 

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; }