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