david
39292d680f
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoArmarios_Web/trunk@8 5f5cdc87-09bc-1947-a3a7-c45bb6b47c2a
19 lines
377 B
Perl
19 lines
377 B
Perl
#!/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();
|
|
}
|
|
|