#!/usr/bin/perl -w

while (defined($nextname = <*.ppm>)) {
 # create filenames
 $fileppm = $nextname;
 $filejpg = $fileppm;
 $filejpg =~ s/.ppm/.jpg/;
 `cjpeg -quality 85 $fileppm > $filejpg`;

}