Help for this page

Select Code to Download

Select or download this

sub _clear {
    return unless $_[0];
...
    print {$OUT} "\n" x 60;
    $clearfirst = 0;
}