1#!/usr/local/bin/perl -w 2 3use CGI::Push qw(:standard :html3); 4 5do_push(-next_page=>\&draw_time,-delay=>1); 6 7sub draw_time { 8 my $time = `/bin/date`; 9 return start_html('Tick Tock'), 10 div({-align=>CENTER}, 11 h1('Virtual Clock'), 12 h2($time) 13 ), 14 hr, 15 a({-href=>'index.html'},'More examples'), 16 end_html(); 17} 18 19