The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
-- main::(my.pl:3)
my $a = 100;
Eval result display style is dumper.
set auto eval is on.
*** No 'my' variable $a found at this level
-- main::(my.pl:16)
foo 5;
-- main::(my.pl:10)
    my $a = shift;
-- main::(my.pl:11)
    my @b = (1, "b");
$a = 5
$DB::D[0] = 6
--> #1 file `my.pl' at line 16
   main::(my.pl:16)
foo 5;
$a = 100
Evaluation in this frame may not find local values
$DB::D[1] = 101
-- main::(my.pl:12)
    my %h = (1 =>'foo', 'food' => 'fight');
@b = [1,'b']
-- main::(my.pl:13)
    bar \%h;
$%h = {'1' => 'foo','food' => 'fight'};
-- main::(my.pl:5)
    my $h = shift;
-- main::(my.pl:6)
    return $h;
$h = {'1' => 'foo','food' => 'fight'}
trepan.pl: That's all, folks...