A minimalistic interactive Perl shell

while(1) {print("perl> ");chomp($_=<>);eval;}