--- check_asterisk.pl	2009-09-24 03:13:56.000000000 -0700
+++ check_asterisk.pl.changed	2009-11-01 13:10:06.000000000 -0800
@@ -31,7 +31,8 @@
 my $iax_timestamp = "00000000"; 
 my $iax_outbound_seq = "00"; 
 my $iax_inbound_seq = "00"; 
-my $iax_type = "06"; #IAX_Control 
+my $iax_type = "06"; #IAX_Control
+my $iax_frame_value = "1e"; #POKE
 
 sub ok {
 	$s = shift;
@@ -224,7 +225,7 @@
 	socket(PING, PF_INET, SOCK_DGRAM, getprotobyname("udp")); 
 
 	$msg = pack "H24", $iax_src_call . $iax_dst_call . $iax_timestamp .
-		$iax_outbound_seq . $iax_inbound_seq . $iax_type . $iax_type;
+		$iax_outbound_seq . $iax_inbound_seq . $iax_type . $iax_frame_value ;
 
 	$ipaddr = inet_aton($host); 
 	$sendto = sockaddr_in($port,$ipaddr);