Jp2 batch converter

1. !/usr/bin/perl

$iteration=1;

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