This isn't a pure Perl answer, but I suggest you look at tcpick

It is like a minimalist's ethereal, and will monitor and/or log all traffic on an interface, like eth0, or ppp0. You probably could run it from Perl, accumulate size data on the packets, and do some long term logging into a db.