print $q->start_form(-method=>'POST',-action=>'formDB.cgi');
print $q->hidden(-name=>'ping',-value=>"$ciccio[2]");
print $q->submit('PING');
print $q->hr;

    }

  }
}
#...
if (defined ($pingalo = $q->param('ping')))
{
   open (FH,"ping -n 1 -l 1 $pingalo|");
  while (<FH>){if ($_=~/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/){$risultato_ping=$1}}
  close FH;

 }