#$cosa is the first parameter of the request
while (<LOGFILE>)
{
  push(@logline, $_);
}
...
foreach $record(@logline)
  {
   my @ciccio=split/\?/,$record;
   pop @ciccio;  
   if ($ciccio[2]=~/$cosa/ || $ciccio[3]=~/$cosa/ || $ciccio[14]=~/$cosa/ )
   {
    $indice++;
    print table({-border=>0,-width=>"100%", -cellspacing=>"0", -cellpadding=>"0"},

        Tr({-align=>LEFT,-valign=>TOP},
        [
           td([$q->h5("$indice)"),"$ciccio[0]","poiiiii $risultato_ping"]),
           td([$q->a({-href=>"http://$ciccio[2]",target=>new},"$ciccio[2]"),"$ciccio[4]"]),
           td(["$ciccio[3]","$ciccio[7]"]),
           td(['',"$ciccio[9]"]),
           td(['',"$ciccio[10]"]),
           td(['',"$ciccio[11]"]),
           td(['',"$ciccio[14]"]),
           td(['',"$ciccio[15]"]),
           td([''," "])
        ]
      )

     );

##</code><code>##

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;

 }