Select Code to Download

sub geraNova
{
...
    undef $Book;
    undef $ActBook;
}

sub addZeros
{
...
    
    return $num;
}