#!/usr/bin/perl -w

while (defined($nextname = <dsc0??.jpg>)) {
 # create filenames
    $filed = $nextname;
    $filev = $filed;
    $filer = sprintf("r%s", $filev);
    $filer =~ s/rdsc0/d/;

    printf("Generating $filer from $filed\n");
###    `jpegtran -rotate 90 $filed > $filer`;
    `jpegtran -rotate 270 $filed > $filer`;
##    `mv $filer $filed`;
}