package Foo::Bar::unixoid;

use strict;
use warnings;
use parent 'Foo::Bar::base';

sub frob
{
    # do it without Win32::OLE
}

# ...

1;