sub pad {
  my ($num, $len) = @_;
  return '0' x ($len - length $num) . $num;
}