Select Code to Download

sub foo { return 3+$a };
$a = 1;
$a = foo($a) and print $a;

$\ = "\n";
my $x = 12;
...
  print $x;
}
print $x;

my $x = 123;
{
  my $x = 45 and print $x;
}