Babbys first perl script