print "ファイル名を指定してください>";
$file = <STDIN>;
chomp($file);
($device, $inode, $mode, $nlink, $userid, $groupid, $rdev, $size, $accesstime, $modifytime, $changetime, $blocksize, $blockcount) = stat($file);
printf("デバイス:%d\n".
"i-node: %d\n".
"権限値: %o\n".
"リンク:%d\n".
"ユーザID: %d\n".
"グループID:%d\n".
"デバイス識別子:%d\n".
"サイズ:%d\n".
"アクセス時間:%d\n".
"更新時間:%d\n".
"i-node変更時間:%d\n".
"ブロックサイズ:%d\n".
"ブロック数:%d\n",
$device, $inode, $mode, $nlink, $userid, $groupid, $rdev, $size, $accesstime, $modifytime, $changetime, $blocksize, $blockcount
);