index 787d464413bce1adec9c5641fb3023e4a50ffe43..4bed4120a30d0adb24973802e1fd854b226155bb 100644 (file)
$x = rand $wc;
($z,$y) = split(/\./,$x);
-print `$check $data[$z] $host`;
-
-
+system($check, $data[$z], $host);
+exit ($? / 256);
sub usage
{