Select Code to Download

use strictures;
use GD;
...
                           $original_image->getBounds );

path("new.jpg")->spew_raw($new_image->jpeg);