Select Code to Download

   chaddr => 'XX:XX:XX:XX:XX:XX', # MAC Address of sending interface

   sleep 5;  # allow capture process to establish
   sleep 10; # allow capture

   #my @macaddr = split(/:/, $chaddr);
   my @chaddr = split(/:/, $chaddr);
...

   # or combined, using the clearer(?) @macaddr:
   @macaddr = map { hex } (split/:/,'10:FF:2B:40:8C:FE'), (0)x10;

    for (my $i = 0; $i <= $#options; $i++) {
        my $option = hex($options[$i++]);
...
        }
         $i = $offset - 1;
     }

     for my $key (keys %opts) {
         print $key, " ", dhcp_option($key),"\t";
...
               )
               "\n";
     }