Here is something that I had to do in couple of hours to check the logs. The problem was the log file was printing the Received and Sent message in the hex format. I had to verify if the messages were correct. So here is how to do it.
open(FP, ”<$ARGV[0]”)|| die ”File $ARGV[0] does not exist”;
while ($line = )
{
if ($line =~ /(Received :)|(Sending :)/)
{
Continue reading