Get the Information

#!/usr/local/bin/perl 
#use strict;
#use CGI ':standard';

#
#Declare variables and then get data from Form with CGI.pm
#

my $browser = $ENV{'HTTP_USER_AGENT'};
my $IP = $ENV{'REMOTE_ADDR'};

my (@time, @days, @months, @VNdays, @VNmonths, $time, $days, $months, $VNdays, $VNmonths);

@time = localtime;

@days = qw(Sunday Monday Tuesday Wednesday Thursday Friday Saturday);
@months = qw(January February March April May June July August September October November December);

@VNdays = qw(Chu-Nhat Thu-Hai Thu-Ba Thu-Tu Thu-Nam Thu-Sau Thu-Bay);
@VNmonths = qw(Thang-Mot Thang-Hai Thang-Ba Thang-Tu Thang-Nam Thang-Sau Thang-Bay Thang-Tam Thang-Chin Thang-Muoi);

#
#Output MINE content line and get something for the Browser
#
print "Content-type: text/html\n\n";
print qq (<HTML>\n<HEAD>\n<TITLE>Get the Information</TITLE>\n</HEAD>\n</BODY>\n);

print qq (<P>Today is <i>$days[$time[6]], $months[$time[4]] $time[3]</i>.\n);
print qq (<P>In Vietnam, they'd say: <i>Ho^m nay $VNdays[$time[6]], ngày $time[3], $VNmonths[$time[4]]</i>.\n);

print "<P>The browser you're using to view this page is_ $browser\n";   #Using environment variable
print "<P>And your IP Address is_ $IP\n";

print qq (\n</BODY>\n</HTML>);