Network usage stats

my $stats = `cat /proc/net/dev`;
foreach (@ARGV) {
    print $_, ': ';
    if ($stats =~ /$_:\s*(\d+)(?:\s+\d+){7}\s+(\d+)/) {
        print "received $1 bytes, sent $2 bytes\n";
    } else {
        print "no statistics available\n"
    }
}