sub myrpack ($$) {
   my($template, $charstring) = @_;
   $charstring = reverse $charstring;
   $charstring = pack $template, $charstring;
   $charstring = reverse $charstring;
   return $charstring;
}