Perl: Полезные решения (138) / подпрограммы и прочее...

mfn9:
Добрый день!

Помогите написать скрипт
мне необходимо чтобы скрипт сравнил время изменения файла и текущее время
и если есть разница в 2 или больше минуты то выполнить действие

для текущего времи использую

Код:

my $nowtime = localtime(time); print ("$nowtime\n"); вывод: Tue Jun 25 12:42:10 2013

но как узнать время изменения файла?
в инете нашел такое, но мне не выдает знаение:

Код:

my $mtime = (stat $file)[9]; print $mtime,"\n"; вывод: Use of uninitialized value in concatenation (.) or string at /cortex/mtb/bin/loadfile.pl line 104.

и еще не понятно как сравнить эти даты

код самой функции в которой необходимо прописать это условие:

Код:

sub scan_dir { my ($dir) = @_; for my $file (glob($dir.'bb*'))     {         if ( -f $file )         {         } }

система HPUX