モジュールの使用例

画像ファイルの大きさを調べる
use Image::Size;
foreach $f (@ARGV) {
    ($x, $y) = imgsize($f);
    print "$f: ${x}x$y\n";
}
実行例
kaoru@basil 100> perl sample1 *.gif
new.gif: 39x13
title.gif: 335x55
title3.gif: 400x60