#!/usr/bin/perl
# Author: Peter R. Wood, http://prwdot.org/

use Image::Magick;

my $file = $ARGV[0];

my $magick = Image::Magick->new;
my $x;
$x = $magick->read( filename => "$file" );
warn "$x" if "$x";
print "Opening $file\n";
my $height     = $magick->Get('rows');
my $width      = $magick->Get('columns');
my $new_height = $height / 8;
my $new_width  = $width / 8;
$x = $magick->Resize( width => $new_width, height => $new_height );
warn "$x" if "$x";
my $new_file = $file;
$new_file =~ s/(.+)\.(.+)/$1_t\.$2/g;
print "New file name: $new_file\n";
$x = $magick->write( filename => "$new_file" );
warn "$x" if "$x";
print "Wrote $new_file\n";