#!/usr/bin/env perl
use strict;
$^W=1;
use Imager;

my $img = Imager->new;
$img->open(
	file => '5.jpg',
	type => 'jpeg',
) or die("Could not open image file");

my $newimg = $img->scale(xpixels=>90);

$newimg->write(
		file => "thumb.jpg",
		type => 'jpeg',
	) or die($!);