#!/usr/local/bin/perl

require './line_edit.pl';

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