[PERL] Port Sacanner

#!/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);