perl -e 'rename($_,("0"x(7-length($_))).$_) for glob("*.png")'