sub ReadBinaryFile {
    my $filename = shift;
    my $stream = Win32::OLE->new("ADODB.Stream");
    $stream->{Type} = 1; # adTypeBinary
    $stream->Open;
    $stream->LoadFromFile($filename);

    my $retval = Variant();
    $stream->Dispatch("Read", $retval);
    return $retval;
}