Funcoes implementado. Ultima hora, cheio de variaveis globais.
[myPerl.git] / exps / sum_funs.pl
blobecc8ce79ff9e0fee4360e48816139fc25ca7548f
1 fun1 {
2 my ($a, $b);
3 $a = 3;
4 $b = 3 * $a;
5 $a = $a + $b;
6 return $a;
9 fun2 {
10 my $a;
11 $a = 3;
12 return $a;
15 my $a;
17 $a = fun1() + fun2();
18 write_int($a);