Sig: La propiedad distributiva Sup: Usando CGI.pm Ant: Look ma, no hands Err: Si hallas una errata ...

Un reloj virtual

#!/usr/bin/perl -w
use CGI ':standard';

$current_time = localtime;

print header,
      start_html('A virtual Clock'),
      h1('A virtual clock'),
      img({-src=>'http://nereida.deioc.ull.es/images/ball-green.gif', -alt=>'CLOCK'}),
      "The current time is $current_time.",
      hr,
      a({-href=>'/'},"Go to the home page."),
      end_html;

Sig: La propiedad distributiva Sup: Usando CGI.pm Ant: Look ma, no hands Err: Si hallas una errata ...