Help for this page
$ perl -le 'print sprintf("%0*d", 3, 1)' 001
print ".../$number/..."
print "number='$number'; tiffpath='$tiffpath'; ...";