#!/usr/bin/perl -wl
die "Missing basedir" 
unless $ARGV[0];
$SIZE=320;
$BASEDIR=$ARGV[0];
$cmd="find $BASEDIR -type f | sort ";open F, "$cmd |" or die "Can't run $cmd. $!";
while(<F>) {  
chomp;  
$if=$_;  
@foo = split('/');  
$bn=$foo[$#foo];  
$of=$bn;  
$cmd=qq(jpegtopnm $if | pnmscale -xysize $SIZE $SIZE | pnmtojpeg >$of);  
print $if;  
print qx($cmd) unless -f $of;
}