Select Code to Download

#!/usr/bin/perl -w

...
eval $dump;
die $@ if $@;
insert(d => $VAR1);

Working with the original:

...

$n is now 101
d => 101

#!/usr/bin/perl -w

...
eval $dump;
die $@ if $@;
insert(d => $VAR1);

Working with the original:

...
Global symbol "$n" requires explicit package name at (eval 8) line 8.
Global symbol "$n" requires explicit package name at (eval 8) line 9.
Global symbol "$n" requires explicit package name at (eval 8) line 10.

#!/usr/bin/perl -w

...
eval $dump;
die $@ if $@;
insert(d => $VAR1);

Working with the original:

...

$n is now 1
d => 1