Select Code to Download

sub my_pad {
  my ($s, $max_length, $dir, $pad_char) = @_;

  my $pad_string = (defined $pad_char ? $pad_char : ' ' ) x ($max_leng
+th - length $s);
  return $dir eq 'R' ? $s . $pad_string : $pad_string . $s;
}