my $io = gensym;
    bless $io, $class;