#!/usr/bin/perl # Port Checker oport6.pl coded by 0x4D722E20446F6E #cpan IO::Socket::INET6 use IO::Socket::INET6; if(!$ARGV[1]){ print $0 . " \n"; exit; } my $s = IO::Socket::INET6->new(PeerAddr => $ARGV[0], PeerPort => $ARGV[1], Domain => AF_INET6); if($s){ print "[OPEN] $ARGV[0] on $ARGV[1]\n"; }else{ print "[CLOSE/FIREWALL] $ARGV[0] on $ARGV[1]\n"; }