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