print "FI A port 1/2 operational_speed is " 
                . $ucs->interconnect(A)->card(1)->eth_port(2)->oper_speed;
                . ', total bytes transmitted is "
                . $ucs->interconnect(A)->card(1)->eth_port(1)->tx_total_bytes
                . ".\n";

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

##</code><code>##

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

##</code><code>##

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