#!/usr/local/bin/perl
for ($counter=10; $counter<20; $counter++) {
        # create filenames
	$fileu = sprintf("v%02dd19.ps", $counter);
	$filev = sprintf("v%02dd19.eps", $counter);
	printf("doing file $filev\n");

        `mv $fileu $filev`;
}