Fix a warning due to function prototype issues with perl 5.8

utils/eventping.in

@@ -13,6 +13,8 @@ my $TB = "@prefix@";
 my $BOSSNODE = "@BOSSNODE@";
 my $TBOPS = "@TBOPSEMAIL@";
 
+sub fatal ( $ );
+
 $| = 1;
 
 use event;