How can I compare file creation time to the current time in Perl?

22116291110813630

Today, December 29, 2008, 2:38:37 PM

($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
                  $atime,$mtime,$ctime,$blksize,$blocks)
                      = stat($filename);

$mtime = ( stat $filename )[9];
$current_time = time;

$diff = $current_time - $mtime;

$mtime = ( stat $filename )[9];
$current_time = time;

$diff = $current_time - $mtime;

my $diff = -M $filename;