Tiny perl repl

pepl.pl

#!/usr/bin/env rlwrap perl

$_='"Welcome to the perl repl"';

do { 
	$result = eval($_);
	print $@ if ($@);
	print $result, "\n" if defined $result;
	print 'pepl> ';
} while (<>);