use Win32::OLE qw( EVENTS );

my $DirectSS = 
        new Win32::OLE( "{EEE78591-FE22-11D0-8BEF-0060081841DE}" );

$DirectSS->Speak("Good evening, Mr. Anderson.  How's your day been?  Goooood.  Well, listen, I'm going to have to ask you to be assimilated into the Borg because, yeah, resistance is futile.  Oh, and about those TPS reports.  Yeah, didja get that memo?  You see, we're putting new cover sheets on all our TPS reports.  By the way, I've taken the liberty of searching, searching, searching out. your domain controllers.  It seems they're named charles and michael.  or should i say, were?  cuz now they're pete and repeat.  yeah.  how do you like that?  by the way, if pete and repeat are in a boat and pete jumps out,
who's left?  Ok, i'll say it again.  if pete and repeat are in a boat and pete jumps out, who's left?  that was a little borg humor for you.  most people don't know about it, but we can be a regular barrel of laughs when we want to.  and remember: anything is possible, except skiing through a revolving door.  Because then where would we be?  nowhere, that's where.  by the way, you're logged in as " . getlogin . ".  We Borg know that kind of stuff.  It's what we do, so we have to be good at it.  and we are.  we're really good.  really good.  really, really good. in fact, so good that we know that everything about your computer.  everything.  have a pleasant remainder of your day.  cheers from the borg.
");

while( $DirectSS->{Speaking} )
{
        Win32::OLE->SpinMessageLoop();
        Win32::Sleep( 100 );
}