--
++
-- main::(eval.pl:1)
$var = '
Eval result display style is dumper.
set max width is 300.
set auto eval is on.
set max string is 0.
eval.pl [1-10]
--------------
  1  ->	$var = '
  2    	# This line is not a comment of the above $var assignment
  3    	$x = 2;
  4    	$y = 3;
  5    	$z = 4';
  6    	eval $var;
  7    	$eval_sub='
  8    	sub five() {
  9    	    my @args = @_;
 10    	    print "ho\n";
-- main::(eval.pl:6)
eval $var;
$DB::D[0] = 1
eval.pl [2-11]
--------------
  2    	# This line is not a comment of the above $var assignment
  3    	$x = 2;
  4    	$y = 3;
  5    	$z = 4';
  6  ->	eval $var;
  7    	$eval_sub='
  8    	sub five() {
  9    	    my @args = @_;
 10    	    print "ho\n";
 11    	    5;
$DB::D[1] = 1
-- main::((eval 1955)[eval.pl:10]:3 remapped bogus.pl:3)
$x = 2;
-- main::((eval 1955)[eval.pl:10]:4 remapped bogus.pl:4)
$y = 3;
-- main::((eval 1955)[eval.pl:10]:5 remapped bogus.pl:5)
$z = 4
-- main::(eval.pl:7)
$eval_sub='
-- main::(eval.pl:13)
eval $eval_sub;
-- main::(eval.pl:14)
$y = five();
-- main::((eval 1955)[eval.pl:10]:3 remapped bogus.pl:3)
trepan.pl: That's all, folks...