Select Code to Download

 (let ((var1 init-form-1)
       (var2 init-form-2)
...
   form2
   ...
   formn)

sub fun2 {
    my $a;
    print $a;  # undef warning *
    $a = 33;
}