image reduce.pl

#!/usr/bin/perl

use Image::Magick ;

@ARGV == 3 
    or die "use $0 <filename> <WIDTHxHEIGHT> <prefix_for_new_image>\n" ;

($width, $height) = split('x', $ARGV[1]) ;

$image = Image::Magick->new ;

$image->Read( $ARGV[0] ) ;

$image->Resize(
     width => $width, 
     height => $height, 
     filter => 'Cubic', 
     blur => 0 ) ;

$image->Write( ($ARGV[2] . $ARGV[0]) ) 
              and die "Cannot write " . ($ARGV[2] . $ARGV[0]) ;