Jp2 batch converter

$iteration=1;
 * 1) !/usr/bin/perl

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