Select Code to Download

use strict;
use warnings;
...
      $device->{ MACAddress       }, $/,
      $/;
}

use strict;
use warnings;
...

print("PCI = 43\n");
print("ISA = 44\n");