stat関数でファイルの詳細情報

ファイルの更新日時とかデータサイズとか取得したくなるときってありますよね

#! /usr/bin/perl
use strict;
my $f = "file.txt";
my $time = localtime( (stat $f)[9] );
my $size = (stat $f)[7];
print "file:".$f.", size:".$size.", time:".$time."\n";

みたいなーってかんじー？

参考：
http://d.hatena.ne.jp/perlcodesample/20080512/1210601735