#!/usr/bin/perl
for ($counter=142; $counter<=149; $counter++) {
        # create filenames
	$filev = sprintf("dds%03d.jpg", $counter);
	system("xv -geometry +0+40 $filev&");
        sleep(3.5);
}

for ($counter=150; $counter<=160; $counter++) {
	$filev = sprintf("s%03d.jpg", $counter);
	system("xv -geometry +0+40 $filev&");
        sleep(3.5);
}

for ($counter=161; $counter<=166; $counter++) {
        # create filenames
	$filev = sprintf("ds%03d.jpg", $counter);
	system("xv -geometry +0+40 $filev&");
        sleep(3.5);
}