home *** CD-ROM | disk | FTP | other *** search
/ Chip: Windows 2000 Professional Resource Kit / W2KPRK.iso / apps / perl / ActivePerl.exe / data.z / nph-clock.cgi < prev    next >
Encoding:
Text File  |  1999-10-14  |  377 b   |  19 lines
  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.  
  19.