#!/usr/bin/perl
#for ($counter=0; $counter<=200 $counter++) {
###while (defined($nextname =
)) {
#while (defined($nextname = )) {
while (defined($nextname = )) {
# create filenames
# $filev = sprintf("v%03d.jpg", $counter);
$filefullsize = $nextname;
$files = sprintf("s%s", $filefullsize);
$files =~ s/sr/s/;
printf("about to generate $files from $filefullsize\n");
# `mv $filed $filev`;
`djpeg $filefullsize > deleteme_big.ppm`;
`pnmscale -xscale .32 -yscale .32 deleteme_big.ppm > deleteme_small.ppm`;
`cjpeg -quality 95 deleteme_small.ppm > $files`
}