Select Code to Download

sub mysub {
  my $var1 = 1;
  # here you can use $var1
}
$var1 = "boo"; # compile error: there is no $var1 declared in this sco
+pe.