perl :: port scan tool

#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket;

my $host = $ARGV[0];
my $start_port = $ARGV[1];
my $end_port = $ARGV[2];

for my $port ($start_port..$end_port) {
    my $socket = IO::Socket::INET->new(
        Proto    => "tcp",
        PeerAddr => $host,
        PeerPort => $port,
        Timeout  => 1,
    );

    if ($socket) {
        print "  ⭕ Port $port is open ⭕\n";
        close($socket);
    }else{
        print " ❌ Port $port is closed ❌\n";
    }
}




=begin comment
apt update -y
apt upgrade -y
apt install perl -y
cpan IO::Socket
perl door-hinge.pl google.com 1 25565
=cut