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 )
        {

        }
}

use strict;
use File::stat;
use File::Copy;
use Env;
use warnings;
use Time::Local;


imp($dir);
sub imp
{
$dir = "$ctx_in/FO/";
print "Scan $dir ...\n";
for my $file (glob($dir.'fo*.xml'))
	{
		if ( -f $file )
		{
			print "Exec command: $fo -f$file\n";
			#system ("$fo -f$file -D5\n");
			
			#move("$file", "$dir/arch") or die "Move failed: $!";
			#print "Move: $file to /arch \n";
		}
	}
}

imp($dir);
sub imp
{
$dir = "$ctx_in/FO/";
print "Scan $dir ...\n";

for my $file (glob($dir.'fo*.xml'))
	{
		if ( -f $file )
		{
			print "Exec command: $fo -f$file\n";
			$datech = (stat($file))[9];
			print $datech;
			#system ("$fo -f$file -D5\n");
			
			#move("$file", "$dir/arch") or die "Move failed: $!";
			#print "Move: $file to /arch \n";
		}
	}
}

1073807361, 62916, 33188, 1, 108, 105, 0, 355, 1372148608, 1372086246, 1372156423, 8192, 1