perlで画像の縦,横の大きさを取り出すには？