[[Perl]] #!/usr/bin/perl use CGI; my $charset="utf-8"; my $title="小樽商科大学"; my $q = new CGI; print $q->header(-charset=>$charset); print $q->start_html(-title=>$title, -encoding=>$charset); my @time = localtime(time); $time[4]++; $time[5] += 1900; foreach(@time){ print "$_/";} print "<br>$time[5]月$time[4]月$time[3]日<br>\n"; print $q->end_html();