sub open
{
    my (undef, $direction, $filename)=@_;

    $_[0]=Symbol::gensym;
    open ($_[0],$direction,$filename);
}