(let ((var1 init-form-1)
       (var2 init-form-2)
       ...
       (varm init-form-m))

   form1
   form2
   ...
   formn)

##</code><code>##

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