else implementado.

[myPerl.git] / exps / simples_fun.pl

fun1 {
  my $a;
  $a = 2;
}

my $a;
fun1(0, 1, $a);