Perl read, eval, print, loop, yay!
