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