#!/usr/bin/perl
# Website: http://saime.biz
# Usage: perl l33t.pl [ip]
use IO::Socket;
my ( $ip, $port, $endport );
     $endport=1337; $port=0; # You can edit the endport ....
     $ip = $ARGV[0] if $ARGV[0];
     $port=$ARGV[1] if $ARGV[1];
     $maxport=$ARGV[2]  if $ARGV[2];

print "[+]Scaning: $ip\r\n";
foreach (; $port<=$endport; $port++) {
    print "\n[+]Port $port is open!" if ( IO::Socket::INET->new(PeerAddr=>"$ip:$port",Proto=>'tcp',Timeout=>1));
}
exit;

#!/usr/bin/perl
# Options: !op , !kill , !version , !owner
# Website: http://saime.biz
print "http://saime.biz";
use strict;
use IO::Socket;
use Socket;
my $server = "irc.nitrousirc.net";
my $port= '6667';
my $chanel = "#perl";
my $nick = "King`Of`Noobs";
my $identify = "ohi";
my $name = "Hithere";
my $saime = "Saime";
my $socket = new IO::Socket::INET(PeerAddr => $server, PeerPort => $port, Proto => "tcp") or die "Get a life ?";
print $socket "NICK $nick\r\n";
print $socket "USER $identify 8 * :$name\r\n";
print $socket "JOIN $chanel\r\n";
while (my $body = <$socket>) {
chop $body;
if ($body =~ /^PING(.*)$/i) { print $socket "PONG $1\r\n"; }
if ($body =~ /^.*!version(.*)$/i) { print $socket ("PRIVMSG $chanel Saime's BOT V1.2!\r\n"); }
if ($body =~ /^.*!kill(.*)$/i) { print $socket ("QUIT\r\n"); }
if ($body =~ /^.*!op(.*)$/i) { print $socket ("MODE $chanel op $saime\r\n"); }
if ($body =~ /^.*!owner(.*)$/i) { print $socket ("PRIVMSG $chanel Owner: YourNick\r\n"); }
}

   * И так представляю вашему вниманию класс который парсит BB коды,
  класс отличяется тем что очень прост в плане добовления 
  новых BB кодов а также его легко переделать для работы с БД.
   
  ИНСТРУКЦИЯ по добовлению новых ББ кодов:
  BB код представляет из себя массив содержаший в себе
  параметры BB кода.
  Пример:
 'color' => array (
   1 => '<font="$1">$2', 
   2 => '</font>',
   3 => '2',
   4 => '[ font=x1 ]x2[ /font ]',
   ),
  Ключ массва это имя BB кода, 
  ВНИМАНИЕ: ключ должен содержать буквы нижнего регистра(МАЛЕНЬКИЕ)   
  и цифры.	
  Ключ со значением 1 - это открытие HTML тэга,
  а также вы обозначаете $n значение пришедшие от пользователя
 с 1 и далее по возростания где n - число
  Пример: в теге <font color="red">str</font> 2 значения пришедших
  от пользователя это цвет (red) и строка (str)а значит будет так
  <font color"$1">$2</font>.
  Далее кдюч 2 - закрываюший тэг(Необязатльное поле) 
  можете его не указывать если тэг закрытый например тэг <hr>.
 3ий ключ в массиве это максимальное количество значений которые
 должны прийти от пользователя.
 И 4ый ключ это как будет выглидеть BB код а где xn опять же
 значения от пользоваетя где n - число от 1 и далее