#!/usr/bin/perl -w

use strict;
use Net::SNMP;

my $session = new Net::SNMP->session (-hostname => "serenity", -community => "public");

my $ifInOctets = "ifInOctets.21";
my $ifOutOctets = "ifOutOctets.21";

my $result = $session->get_request(-varbindlist => [$ifInOctets, $ifOutOctets]);

printf ("Bytes In: %s\n Bytes Out: %s", $result->{$ifInOctets}, $result->{$ifOutOctets});

$session->close;

exit 0;