Select Code to Download

my $x = 3;
my $y = "2 * $x";
...

print '$z is: ', $z, "\n";
print 'eval of $z is: ', eval $z, "\n";