#!/usr/bin/perl
use IO::Socket;
$| = 1;
$port = 1;
print "Enter output file: ";
$output = <STDIN>;
chomp $output;
print "Enter IP-Address To Scan: ";
$ip = <STDIN>;
chomp $ip;
open(LIST, ">>$output");
while ($port <= 65535) {
	$sock = new IO::Socket::INET (PeerAddr => "$ip", PeerPort => $port, Proto => 'tcp');
	if ($sock) {
		close $sock;
		#if ($port == 5900) {
		#	print "VNC - ";
		#} elsif ($port == 22) {
		#	print "SSH - ";
		#} elsif ($port == 80) {
		#	print "HTTP - ";
		#} elsif ($port == 23) {
		#	print "TELNET - ";
		#} elsif ($port = 21) {
		#	print "FTP - ";
		#}
		print "$port -open\n";
		print LIST "$port -open\n";
		# flush(LIST);
		$port = $port + 1;
	} else {
		# print "$port -closed\n";
		$port = $port + 1;
	}
}
close(LIST);
