Select Code to Download

#!/usr/bin/perl

...
   print "$_\n";
}

# @data now contains src_addr, dest_addr, proto, and port
   @data = ( split(/\s+/) )[2,4,5,8]

# later test elem 3 instead of 5.. yada yada