#!/usr/bin/perl
use strict;
use warnings;
use Image::Thumbnail;
                                                                                                                                  
my $image_name = 'picture.jpg';
my $output_image_name = 'picture_thumb.jpg';
                                                                                                                                  
my $t = new Image::Thumbnail(
  size       => 80,
  create     => 1,
  inputpath  => $image_name,
  outputpath => $output_image_name
);