Скриптик не работает и всё. Что с ним не так?
#!/usr/bin/perl -w
use strict;
use CGI::Carp qw (fatalsToBrowser);
&usertime;
#---------------------------------------------------------------------
sub usertime() {
my ($time_sec, $time_min, $time_hour, $time_mday, $time_mon, $time_year, $time_wday, $time_yday, $time_isdst);
($time_sec, $time_min, $time_hour, $time_mday, $time_mon, $time_year, $time_wday, $time_yday, $time_isdst) = localtime (time);
$time_year=$time_year+1900;
$time_mon=$time_mon+1;
my $time_full_now="$time_year-$time_mon-$time_mday $time_hour:$time_min:$time_sec";
my $time_unix_now=time;
}
#---------------------------------------------------------------------
my ($time_full_now, $time_unix_now);
print "Content-Type: text/html\\n\\n";
print "Full time: $time_full_now\\n
Full unix time: $time_unix_now\\n
";
Выводит строки Full time: и Full unix time:
И всё. А почему не выводяться значения?