#!/usr/bin/perl
#
# Simple port scanner automation with hping(Only the Type SYN conection)
# Autor: n00b
###############################################
use diagnostics;
use warnings;
print "############################\n";
print "Enter the ip/host: \n";
print "############################\n";
$host=<STDIN>;
chomp($host);
print "############################\n";
print "Enter the range of ports(for example 80-8080): \n";
print "############################\n";
$port=<STDIN>;
chomp($port);
system("hping2 -V --scan '$port' -S $host");
exit(0);