sub spacer
{
    my $times=shift;
    for ( 0 .. $times )
    {
        print br;
    }  
} # end sub spacer