Select Code to Download

print "FI A port 1/2 operational_speed is " 
                . $ucs->interconnect(A)->card(1)->eth_port(2)->oper_sp
+eed;
...

    # Prints: 
    # FI A port 1/2 operational_speed is 10gbps, total bytes transmitt
+ed is 120230320434028

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

Sometimes you need to see how much data your computer gets through a c
+ertain device(at least I do). I've put together this script that does
+ just that