#!/usr/bin/perl # File: time3.pl use CGI ':standard'; $current_time = localtime; print header, start_html('A Virtual Clock'), img({-src=>'./clock.gif',-alt=>'A Clock'}), h1('A Virtual Clock'), "The current time is $current_time.", hr, a({-href=>'/'},"Go to the home page."), end_html;