$ perl -le 'print sprintf("%0*d", 3, 1)'
001

##</code><code>##

print ".../$number/..."

##</code><code>##

print "number='$number'; tiffpath='$tiffpath'; ...";