my $img = Image::Resize->new('file.gif'); #or png			
my $newImg = $img->resize(150,150);
my $imgData = $newImg->gif; #or png

open(FH, '>newFile.gif');
binmode FH;
print FH $imgData;
close FH;