#!/usr/athena/bin/perl

use strict;

    my @olddata;
    my @data;
    my @fields;


do {
    

    open (PROC_NET_DEV, "<", "/proc/net/dev")
	|| die "Cannot open /proc/net/dev: $!";
    
    <PROC_NET_DEV>;
    @fields = split (/\s+|\|/, <PROC_NET_DEV>);
    shift (@fields);
    shift (@fields);

    while (<PROC_NET_DEV>) {

	my $interface;

	chomp;
	@data = split (/\s+|:/);
	shift (@data);
	$interface = shift (@data);
	print "$interface";
	

    }

    close (PROC_NET_DEV);

#     my @netstat_keys;
#     my @netstat_values;
#     my %netstat;

#     open (NETSTAT, "<", "/proc/net/netstat") 
# 	|| die "Cannot open /proc/net/netstat: $!";

#     @netstat_keys = split (/\s/, <NETSTAT>);
#     @netstat_values = split (/\s/, <NETSTAT>);
    
#     for (my $i = 0; $i < ($#netstat_keys + 1); $i++) {
# 	$netstat{$netstat_keys[$i]} = $netstat_values[$i];
#     }
    
#     foreach my $key (sort (keys %netstat)) {
# 	print ("$key\t\t\t$netstat{$key}\n");
#     }

#     close (NETSTAT);
    

} while (0);