#!/usr/bin/perl
package Run::Perl;
print "Enter some perl: ";
while ($_=<>) {
    chomp;
    exit unless $_;
    eval;
    print "\nEnter some perl: ";
}