use strict;
use Filesys::SmbClientParser;

my $path="/path/to/smbclient";
my $target="kasbah";
my $smb=Filesys::SmbClientParser->new($path, { user => "camel", password => "humps" });
$smb->sendWinpopupMessage($target, "My tailor is rich.");