#... blah blah blah
            open(FH, $opts{-file});
            $opts{-handle} = *FH;
            return $parser->from_handle(%opts);
#... la dee da

##</code><code>##

#... stick out left leg
    while ( readline($opts{-handle}) ) {
        if ( $_ ) {
            # ... frobnicate
        }
    }
# return right leg