sub networktraffic {
    $vara = 0;
    $varz = "";
    $varb = scalar @nic;
    if($nic[$vara] ne "") {
        while($vara lt $varb) {
            if($nic[$vara] ne "") {
                if ($varz eq "") {
                    $varz = $col2." - ".$col1;
                }
                if($darwin || $freebsd || $dragonfly) {
                    $varx = &networkinfobsd($nic[$vara], 6);
                    $vary = &networkinfobsd($nic[$vara], 9);
                }
                if($netbsd || $openbsd) {
                    $varx = &networkinfobsd($nic[$vara], 4);
                    $vary = &networkinfobsd($nic[$vara], 5);
                }
                if($sun) {
                    $varx = &networkinfobsd($nic[$vara], 4);
                    $vary = &networkinfobsd($nic[$vara], 6);
                }
                if($linux) {
                    $varx = &networkinfolinux($nic[$vara], 0);
                    $vary = &networkinfolinux($nic[$vara], 8);
                }
                $varz .= $nicname[$vara]." Traffic (".$nic[$vara].")".$col2.": ".$col1.$varx."MB In/".$vary."MB Out - ";
            }
            $vara++;
        }
        return $varz;
    }
}