I also wonder about the nature of this request, but I firmly believe in user education and presumption of innocence.
You should be able to send a NetBEUI message by calling out to net send ala  my $returnval = `net send $options $message` and fill as appropriate. Or, you can use Win32::Message, see the Send() function.

I would strongly encourage you to consider how you use this code. I hope you're using it to send yourself network alerts, or alerting your users of a problem, server shutdown, etc. If you're using it to send messages to unknown strangers on the internet or your LAN, I'll track you down and teach you the real meaning of use strict;

ibanix

$ echo '$0 & $0 &' > foo; chmod a+x foo; foo;