spacer(3);

##</code><code>##

spacer(7);

##</code><code>##

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