#!/usr/bin/perl
use strict;
use warnings;
use Image::Imlib2;
my $infile=shift @ARGV;
my $outfile=shift @ARGV;
die "bad arguments" if (not defined $infile or not defined $outfile);
print "opening file: $infile\n";
my $img = Image::Imlib2->load($infile) or die "unable to load";
my $img2 = $img->create_scaled_image(100,0) or die "unable to scale";
$img2->image_set_format("tiff");
$img2->save($outfile);