Jp2 batch converter

#!/usr/bin/perl
$iteration=1;

foreach my $file(`ls *.jpg`) {
	chop($file);
	system("jasper --input $file --output $iteration.jp2 -T jp2;");
	$iteration++;
	}