home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _bdf293c211492cb61990c17d804b06cb < prev    next >
Text File  |  2000-03-15  |  377b  |  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.