I'm trying to get the timestamp of a file in a directory. When I run the code shown below I get the following result.

  Last change:    Time::tm=ARRAY(0x200b6064)
[download]

How can I get the this format as my Result?

  Last change:    2004111622
[download]

#!/usr/bin/perl 

use Time::localtime;
$tm = localtime;

opendir(DIR,"/usr/path");
my @dir=grep { !/^\.+$/ } readdir(DIR);
closedir(DIR);
$file_count = 0;

foreach $file (@dir)
{
    $mtime = (stat ($file))[9];            
    print "Last change:\t" . scalar localtime($mtime) . "\n";
}
[download]

2004-11-26 Janitored by Arunbear - added code tags, as per Monastery guidelines