#netstatloopscript
print "How many times would you like to scan:";
$turns = <STDIN>;
chomp $turns;
print "How many sec delay:";
$delay = <STDIN>;
chomp $delay;
for($i=1; $i<=$turns; $i++){
system (netstat, "-a");
print $i." times scanned.";
sleep($delay);
}
$total=$turns*$delay;
print "System scanned in ".$total." sec.";