1 #!/usr/bin/perl -W
 2
 3 use strict;
 4 use Image::Imlib2;
 5
 6 my $src = $ARGV[1];
 7 my $dst = $ARGV[2];
 8 my $geometry = $ARGV[0];
 9 my @xy = split(/x/, $geometry);
10
11 my $imlib2 = Image::Imlib2->load($src) || print "Can't load file";
12 my $img = $imlib2->create_scaled_image($xy[0], $xy[1]);
13 $img->save($dst);