#!/usr/bin/perl -w
use IO::Socket;
sub generate_random_string
{
        my $length_of_randomstring=2;
        my @chars=('a'..'z');
        my $prefix;
        foreach (1..$length_of_randomstring) 
        {
                $prefix.=$chars[rand @chars];
        }
        return $prefix;
}
my $prefix=&generate_random_string(11);
$name=".Mimi";
    $remote = IO::Socket::INET->new (
            Proto    => "tcp",
            PeerAddr => "85.204.80.3",
            PeerPort => "411",
                            );
print $remote '$Key 1',$prefix,'|$ValidateNick [RO][GR][BVNET]',$prefix,$name,'|$Version 1,0091|';
print $remote '$MyINFO $ALL [RO][GR][BVNET]',$prefix,$name,' ' ,$prefix,'<++ V:0.674,M:P,H:1/0/0,S:11>$$DSL$mail$156233050821$|';
sleep(1);
print $remote '<[RO][GR][BVNET]',$prefix,$name,'>U can/%DCN096%/t rush perfection, can you?|';
sleep(2);
print $remote '<[RO][GR][BVNET]',$prefix,$name,'>i/%DCN096%/m, i can... |';
sleep(1);
print $remote '<[RO][GR][BVNET]',$prefix,$name,'>U can/%DCN096%/t rush perfection, can you?  |';
sleep(1);
print $remote '<[RO][GR][BVNET]',$prefix,$name,'>i/%DCN096%/m, i can...   |';
sleep(2);
print $remote '<[RO][GR][BVNET]',$prefix,$name,'>i/%DCN096%/m unstopable... in da/%DCN096%/ warez/%DCN096%/    |';
sleep(1);
print $remote '<[RO][GR][BVNET]',$prefix,$name,'>U can/%DCN096%/t rush perfection, can you?     |';
sleep(2);
print $remote '<[RO][GR][BVNET]',$prefix,$name,'>i/%DCN096%/m unstopable... in da/%DCN096%/ warez/%DCN096%/      |';
sleep(1);