Select Code to Download

sub pad {
  my $char = pop;
...
  $char = " " unless defined $char;
  $_[0] .= $char x ($max - length $_[0]);
}

    pad($v, 30, 'x');    # $v is now 30 characters long
    print $v;