Select Code to Download

my $vresult = $session->get_table(-baseoid => $hardware_info);
my %hashes = %{$vresult};
...
    print ($key," : ",$hashes{$key},"\n");
}

.1.3.6.1.4.1.26543.2.5.1.3.1.19.0 : 
.1.3.6.1.4.1.26543.2.5.1.3.1.20.0 : 
...
.1.3.6.1.4.1.26543.2.5.1.3.1.14.0 : 
.1.3.6.1.4.1.26543.2.5.1.3.1.24.0 :
.1.3.6.1.4.1.26543.2.5.1.3.1.15.0 :

.1.3.6.1.4.1.26543.2.5.1.3.1.1.0
.1.3.6.1.4.1.26543.2.5.1.3.1.12.0
...
.1.3.6.1.4.1.26543.2.5.1.3.1.2.0
.1.3.6.1.4.1.26543.2.5.1.3.1.20.0
.1.3.6.1.4.1.26543.2.5.1.3.1.21.0

.1.3.6.1.4.1.26543.2.5.1.3.1.1.0
.1.3.6.1.4.1.26543.2.5.1.3.1.2.0
...
.1.3.6.1.4.1.26543.2.5.1.3.1.19.0
.1.3.6.1.4.1.26543.2.5.1.3.1.20.0
.1.3.6.1.4.1.26543.2.5.1.3.1.21.0