Code:
#############################################
#!/usr/bin/perl
############################
###########################################################################
#
# Coded By RooT The InSaNe | InSa[N]e.-
# www.Hacking-Truths.NeT
# www.BestCrackz.Altervista.org
# gr33tz : Italians , CrashOver , Hackman , FixXxeR And Krokie !
#
###########################################################################
#
use IO::Socket;

$victim = $ARGV[0];
$timeout = 5;


if($ARGV[0] eq $ARGV[1])

{
 print ("\n\nWelcome In The InSaNe ScanneR\n");
 print;
 print ("Usage: perl InSaNeScanneR.pl <TargeT>\n\n");
 exit;
}


print q{
-[----------------------------------------------------------------------]-
                         InSaNe ScanneR v 0.1
-[----------------------------------------------------------------------]-

    RRRRRR               RRRRRR - http://www.Hacking-Truths.NeT
    RR  RR RRRRRR RRRRRR   RR   - http://BestCrackz.Altervista.Org
    RRRRRR RR  RR RR  RR   RR   - Coded By RooT The InSaNe | InSa[N]e.-
    RR RR  RR  RR RR  RR   RR   - Gr33tz : Crash.Over, Hackman & FixXeR
    RR  RR RRRRRR RRRRRR   RR   - NjoY ... !

-[----------------------------------------------------------------------]-
};

 print scalar("@ports");
 print;
 print "\n - Port Scanner Status : Ok\n - Start Scanning On : $victim\n\n\n";

# Port List For The Scan !

@ports = (   21, 22, 23, 25, 69, 110, 137, 138, 139, 145, 150, 156, 183, 184, 190, 194, 218,
             260, 385, 406, 443, 444, 445, 505, 529, 543, 546, 562, 565, 574, 602, 614, 637,
             660, 662, 689, 1080, 1112, 1863, 1186, 1194, 1214, 1241, 1689, 2054, 2273, 2421,
             3074, 3306, 3352, 4001, 4658, 4662, 5050, 5100, 5900, 6346, 6621, 6622, 8118, 16588);

# List Of Avaible Services

@services = ("Ftp", "Ssh", "Telnet", "Smtp", "Tftp", "Pop3", "Netbios-ns",
            "Netbios-dgm", "Netbios-ssn", "UAAC Protocol", "SQL-NET", "SQL Service",
            "OCBinder", "OCServer", "Gateway Access Control Protocol", "IRC", "Netix Message Posting Protocol",
            "Open Port", "IBM Application", "Interactive Mail Support", "https", "Simple Network Paging Protocol",
            "Mic*ft DS", "mailbox-lm", "IRC Serv", "klogin", "dhcpv6-client", "chcmd", "whoami",
            "FTP Software Agent System", "xmlrpc-beep", "SSLshell", "lanserver", "MacOS Server Admin", "PFTP", "NMAP",
            "Socks", "Icp", "MSN Messanger", "Mysql Cluster", "OpenVPN", "KaZaa", "Nessus", "Firefox",
            "WebLogin", "MySQL Instant Manager", "G-Talk", "Xbox Game", "MySQL", "Scalable SQL", "Jap", "PlayStation2 App",
            "Emule", "Yhaoo Messenger", "Yhaoo Msn Webcam", "VNC Server", "gnutella-svc", "KFtp", "Multicast FTP",
            "Privoxy", "Shareaza");


for ($z=0;$z<219;$z++) {
 $n=0;
 $port = @ports[$z];
 $service = @services[$z];
 $socket = IO::Socket::INET->new(PeerPort => "$port",
                                 PeerAddr => $victim,
                                 Proto    => "tcp",
                                 Timeout  => $timeout) || $n++;
 close $socket;
 if ($n == 0) {
   print (" Target $victim : $service on the port $port\n");
   $n==0;
   }
 }

# EnD Code !