#!/usr/bin/perl

# Ugnich Anton
# http://server-tuning.info/

use strict;

my %devinfo;
open(TEMP,"< /proc/net/dev");
map { @{$devinfo{$1}} = split /\s+/, $2 if( m/^\s*(.*):\s*(.*)$/); } <TEMP>;
close(TEMP);

print $devinfo{$ARGV[0]}->[0],"\n";
print $devinfo{$ARGV[0]}->[8],"\n";