#this is a fun script to run and play around with, especially when #wanting to test something really quick. #based on excerpt from Programming Perl 3rd ed., the O'Reilly camel book, #by Larry Wall, Tom Christiansen, & Jon Orwant, 2000. print "enter some Perl code: "; while() { eval; #evaluates and runs the code being input print $@; #$@ is the default variable for syntax error messages #associated with the last eval operation print "\nenter some more: "; }