use strict;

my $line;

chomp($line = <stdin>);


if ($line eq "\n") {
	print "There was no port number!\n";
} else {
	do{{
		$line;   
		system ("netstat -an | grep $line \n");
                system ("sleep 10");
		redo;
		}}
	}