perl -l40eprint,for'002'..'020'