Work:Scan Domains Ports

#!/usr/bin/perl -w
 
use strict;
use warnings;
 
use IO::Socket;
 
my $port = $ARGV['1'];
my $domain = $ARGV['0'];
my $sock = new IO::Socket::INET (PeerAddr => $domain,
                         PeerPort => $port,
                         Proto => 'tcp');
if ($sock){
    close $sock;
    print "Scanning $domain : TCP $port is open\n";
    #port = $port + 1;
    }   
else{
    print "Scanning $domain : TCP $port is closed\n";
    #port = $port + 1;
    }