Select Code to Download

BEGIN {
  my %oper = (
...
    $oper{$status} || "UNKNOWN($status)";
  }
}

BEGIN {
  my %_status_oper = (
...
printf "           Admin status:%s Oper status:%s\n", 
   if_admin_status($struct{dwAdminStatus}), 
   if_oper_status($struct{dwOperStatus});