sub pad{
   my ($string, $length) = @_;
   return (length($string) < $length ? pack("A$length", $string) : $string);
}