Что-то я совсем не соображаю. Мож кто подскажет...

[Inecs]

Скриптик не работает и всё. Что с ним не так?

#!/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:
И всё. А почему не выводяться значения?

[NeoNox]

perldoc -q "What\'s the difference between dynamic and lexical"

[Inecs]

Вот блин, во лоханулся. Пасибо. Совсем забыл про локальные :-)

[NeoNox]

На самом деле лучше не делать их глобальными.
Пусть у тебя usertime возвращает два значения вроде:
sub usertime
{
....
return ($time_full_now, $time_unix_now);
}

my ($time_full_now, $time_unix_now) = usertime;