contrib/perl5/eg/cgi/nph-clock.cgi

   1 #!/usr/local/bin/perl -w
   2
   3 use CGI::Push qw(:standard :html3);
   4
   5 do_push(-next_page=>\&draw_time,-delay=>1);
   6
   7 sub 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