#!/usr/bin/perl
use warnings;
use strict;
use Image::Magick;

my $filename = shift;
my $target   = $filename;
   $target =~ s/(\..*)$/_thumb$1/;


my $image = new Image::Magick;

$image->Read( $filename );
$image->Scale( '320x200' );

$image->Write( $target );