perl -e "printf('%04d', 33)"