!#/usr/bin/perl

`smbclient -M victimname';
echo `message is sent to you`;
echo `CTRL-D`;