my $snmp = SNMP::Session->new (
    DestHost => $switchaddr,
    Community => $community,
    Version => '2c',
    RemotePort => $port,
) or die "Unable to connect to $switchaddr:$port\n";

print Dumper ($snmp->gettable ('.1.3.6.1.2.1.17.4.3.1.1'));