This is a small PERL script that calculate network bandwidth with some stats.