#!/usr/bin/perl
# FILE: test_time_01.pl
use warnings; 
use strict; 
use CGI qw(:standard escapeHTML); 
my $t = time; 
print start_multipart_form(-action => url()),
p header(), start_html("test"),
p ("The value of time is $t. <br><br>"),
end_form();