makebinbashed ch03. Teach me more perl...