home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _d75814052c6846e0e9e0b3258906567d < prev    next >
Encoding:
Text File  |  2004-06-01  |  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.