#!/usr/bin/perl
#for ($counter=0; $counter<=200 $counter++) {
###while (defined($nextname = <p???????.jpg>)) {

#while (defined($nextname = <p00009??.jpg>)) {
while (defined($nextname = <dsc_????.jpg>)) {
  # create filenames
  #$filev = sprintf("v%03d.jpg", $counter);
  $filed = $nextname;
  $filev = $filed;
  $filev =~ s/dsc_0/dsc/;
  $files = sprintf("s%s", $filev);
  $files =~ s/sdsc/s/;
  printf("about to generate $files and $filev from $filed\n");
  `cp --archive $filed $filev`;
  `djpeg $filev > deleteme_big.ppm`;
  `pnmscale -xscale .25 -yscale .25 deleteme_big.ppm > deleteme_small.ppm`;
  `cjpeg deleteme_small.ppm > $files`
}