perl -MImage::Size -le"print for imgsize shift" foo.png