my $me = bless gensym(), $class;
    # ...more code...
    @{*$me} = ($readfh, $writefh);