You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
18 lines
377 B
18 lines
377 B
#!/usr/local/bin/perl -w
|
|
|
|
use CGI::Push qw(:standard :html3);
|
|
|
|
do_push(-next_page=>\&draw_time,-delay=>1);
|
|
|
|
sub draw_time {
|
|
my $time = `/bin/date`;
|
|
return start_html('Tick Tock'),
|
|
div({-align=>CENTER},
|
|
h1('Virtual Clock'),
|
|
h2($time)
|
|
),
|
|
hr,
|
|
a({-href=>'index.html'},'More examples'),
|
|
end_html();
|
|
}
|
|
|