Noob Perlscripts