CGI/examples/nph-clock.cgi

	nph-clock.cgi revision 1
1N/A#!/usr/local/bin/perl -w
1N/A
1N/Ause CGI::Push qw(:standard :html3);
1N/A
1N/Ado_push(-next_page=>\&draw_time,-delay=>1);
1N/A
1N/Asub draw_time {
1N/A    my $time = localtime();
1N/A    return start_html('Tick Tock'),
1N/A           div({-align=>CENTER},
1N/A           h1('Virtual Clock'),
1N/A           h2($time)
1N/A           ),
1N/A       hr,
1N/A       a({-href=>'index.html'},'More examples'),
1N/A           end_html();
1N/A}
1N/A