##open socket									
$t0 = [gettimeofday];		#Start overall txn timer
$s0 = [gettimeofday];		#Start socket creation timer
&connect_server($ip,$port); 	#Make a telnet connection to 
$s1 = [gettimeofday];		#End socket creation timer		
		
##send / receive msgs
$m0 = [gettimeofday];		#Start TXN timer for message payloads
$telnet->put("$octmsg1");	#"put" 11st octal txn on the wire (send no CR)
$telnet->waitfor(/02.*/);	#Expect a response
@list = $telnet->get;		#Gather the response
$telnet->put("$octmsg2");	#"put" 2nd octal txn on the wire (send no CR)						
$m1 = [gettimeofday];		#End TXN timer for message payloads

##Close socket 
$s2 = [gettimeofday];		#Start FIN timer
$telnet->close;
$s3 = [gettimeofday];		#End FIN timer
t1 = [gettimeofday];		#End overall txn timer