# If the filename is a reference it is assumed that it is a valid
    # filehandle, if not we create a filehandle.
    #
    if (ref($OLEfile)) {
        $fh = $OLEfile;
    }
    else {
        # Create a new file, open for writing
        $fh = FileHandle->new("> $OLEfile");
        if (not defined $fh) {
            croak "Can't open $OLEfile. ......";
        }

        # binmode file whether platform requires it or not
        binmode($fh);

    }

    # Store the filehandle
    $self->{_filehandle} = $fh;