Select Code to Download

$/ = ":::\n"; # define ::: as paragraph delimiter

...
   print "ip: $rec->{ip}\n";
   $count++;
}

-- 
Joost       downtime n. The period during which a system
            is error-free and immune from user input.