[Saiprex]

Я в курсе.....
Вот листинг скрипта:

##################################
#!/usr/bin/perl
##################################
$z="test.pl";
@size=stat($z);
$min=(time-$size[10])/60;
$sec=(time-$size[10])%60;
print "Content-type: text/html\n\n";
print int $min;
print ".$sec";
##################################

все ок ?