Select Code to Download

#!/usr/bin/perl

...
die "Didn't work" unless defined $img;
my ($w, $h)= $img->getBounds();
print $file,": ",$w," x ",$h,"\n";