Data::ParseBinary::Data::Netflow (3pm)

    use Data::ParseBinary::Data::Netflow qw($netflow_v5_parser);
    $data = $netflow_v5_parser->parse(CreateStreamReader(File => $fh));
    # If file contain multiple flows, parse them till EOF
    while () {
        last if eof($fh);
        $data = $netflow_v5_parser->parse(CreateStreamReader(File => $fh));
    }

As for this moment version 5 format is supported only. Read files only in network byte order (\s-1BE\s0).

This is a part of the Data::ParseBinary package, and is just one ready-made parser. please go to the main page for additional usage info.