pp2@nereida:~/src/perl/testing$ cat -n evals.pl
     1  use strict;
     2  use warnings;
     3
     4  my ($a, $b) = (1, 9);
     5
     6  my $x = eval q {
     7    $a = 2;
     8    $b = 3;
     9    print "$b\n";
    10    $a+$b;
    11  };
    12
    13
    14
    15  my $y = eval '$a+$b';
    16
    17  print "$y\n";