#!/afs/athena/contrib/perl/p

push(@INC,'/afs/athena/user/c/ckclark/perl');

require 'line_edit.pl';

while (1) {
	$line = &line_edit'get('perl> ');
	eval $line;
	print "$@" if ($@);
}
