#!/usr/bin/perl

use strict;
use warnings;

use Image::Magick;

my $dir = shift @ARGV;   # target directory, first argument.

for(@ARGV) { 
    # loop over file list
    print "processing file $_\n";
    unless ( /\.tif?$/ ) { 
        warn "$_ does not have a proper TIFF extension...skipping.";
        next;
    }

    my $image = Image::Magick->new;
    my $err;
    print "loading $_...\n";
    $err = $image->read($_);
    warn $err if $err;
    print "scaling $_...\n";
    $err = $image->Scale( geometry => '850x636' );
    warn $err if $err;

    s{/.*/}{};
    m/(.*?)\./;
    my $name = $dir . '/' . $1 . '.png';

    print "writing $name...\n";
    $err = $image->write( $name );
    warn $err if $err;

    undef $image;
}