#!/afs/athena/contrib/perl/perl
$| = 1;

require "/afs/sipb/contrib/perl/readline.pl";  # this is slow on startup.
			       
$prompt = 'perl% ';
while (1) {
    print "\n";
    $line = &readline($prompt);
    # if line doesn't end with a `;', prepend a system command onto it.
    if ($line =~ /;\s*$/o) {
	print eval $line;
	if ($@) { print "ERROR: $@\n"; };
    } else {
	print eval 'system("'.$line.'");'; 
    };
}
__END__