#!usr/bin/perl
use strict;
use Win32::Pipe;
my ($to, $msg, $spoof,$smoke)=@ARGV;
my $dir="\\\\$to\\mailslot\\messngr";

my $pipe = new Win32::Pipe($dir);
&smoke($pipe) or die "Oh shit Lung Cancer";
$pipe->Write("$spoof\0$to\0$msg  \0\0") or die "Black Lung";
$pipe->Disconnect();
print "$spoof [to $to] : $msg\n";

sub smoke {return 1 || $_[0]->Connect();}