Select Code to Download

use strict;
my $x = 3;
...
print "\$x is $x";
print "\$y is $y";
print "\$z is $z";