Select Code to Download

package Tie::Handle::MultiRec;

...
    $self->{'print'}->(@_);
}

my $ctl = tie *FH, 'Tie::Handle::MultiRec', $0, "\n", 3;
my $n = 1;
...
    print FH qq(irs=""); # switch to paragraph mode (using OOB)
    $n++;
}