home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 June / PCWorld_2005-06_cd.bin / software / vyzkuste / firewally / firewally.exe / framework-2.3.exe / nph-clock.cgi < prev    next >
Text File  |  2003-11-07  |  359b  |  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.