#!/usr/bin/perl

use strict;
use warnings;
use Image::Scale;

my $img = Image::Scale->new('image.gif'); 	
$img->resize_gd(  { width => 150 } );
$img->save_png('newImage.png');