#!/usr/bin/perl

# use strict;

# my $handel = "";
# $handel = "handel $1" if (ARGV =~ /\:/);
open TC, "/sbin/tc -s -d qdisc ls dev eth0 |" or die "Could not run tc: $!";

my $status = 0;
while ( my $data = <TC> ) {
    if ($status == 1) {
	$status++;
	if ($data =~ /bytes ([\d]*).*dropped ([\d]*), overlimits ([\d]*)/) {
	    my $total = $1;
	    my $dropped = $2;
	    my $over = $3;
	    my $mask = "$over\n$dropped\n";
	    # $mask = "$over\n$dropped\n" if $ARGV[1] =~ /over,dropped/;
	    $mask = "$total\n$dropped\n" if $ARGV[1] =~ /total,dropped/;
	    $mask = "$total\n$over\n" if $ARGV[1] =~ /total,over/;
	    print $mask;
	}
    }
    $status++ if $data =~ /$ARGV[0]/;
};