Help for this page
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; }