#!/usr/bin/perl -w use strict; for (@ARGV) { my $file = $_; next if ($file !~ /\.tif$/i); (my $base = $file) =~ s/^(.*)\.tif$/$1/i; system "tiffsplit $file"; my @newtifs = ; system "tiff2ps @newtifs > $base.ps"; system "ps2pdf $base.ps"; unlink @newtifs; unlink $base.'.ps'; }