Select Code to Download

   if (length($payload)%2) {
      my $padded = substr $payload, 0, -1;
...
      }
      $payload = $padded;
   }

sub prepchksum {
    my ($payload) = @_;
...
   }
   printf "AFTER  = %s\n", (CORE::unpack "H*", $payload);
}