Perl ポートスキャン

シンプルにポート番号をインクリメントしながらsocket接続を試み、trueならポート番号を表示してsocketを閉じる
ただのコネクションバニラスキャンですね

use IO::Socket;
@ARGV or die "Usage: $0 {target} {start} {end}\n"
foreach ( $ARGV[1] .. $ARGV[2]) {
    if (
        $socket = IO::Socket::INET->new(
            Proto    => 'tcp',
            PeerAddr => $ARGV[0],
            PeerPort => $_,
            Timeout  => '1'
        )
      )
    {
        print "$_\n";
        close($socket);
    }
}

$ ./port.pl 10.0.1.1 1 1023

21
53
80
139
445

ステルスには向いてないから使用はローカルの簡易ネットワークマッピングくらいに留めておこうか