Select Code to Download

if ($old) {
  ## deprecated oids
...
  $tftptoflash  = ".1.3.6.1.4.1.9.2.10.12.0";
  $eraseflash   = ".1.3.6.1.4.1.9.2.10.6.0";
}

my $data{old} = {
wrnet        = ".1.3.6.1.4.1.9.2.1.55.0",
...
  tftptoflash  = ".1.3.6.1.4.1.9.2.10.12.0",
  eraseflash   = ".1.3.6.1.4.1.9.2.10.6.0"
}

my $prefix = ".1.3.6.1.4.1.9.2";
my $number = "$prefix.10.6.0";