Funcoes implementado. Ultima hora, cheio de variaveis globais.

[myPerl.git] / exps / simples.pl

my ($a, $b);
if ( $a + $b ) {
        $a = 1;
}

$b = 1;
$a = 10 + 15 * 3 * $b;

while ($a) {
        $a = $a - 1;
        write_int($a);
}