Select Code to Download

die "Input must be 16 characters\n"
  unless 16 == length $wwn;
die "Invalid hex digit '$1'\n"
  if $wwn =~ /([^[:xdigit:]])/;