sub pad
{
   my $str = shift;
   my $maxlen = shift;
   my $char = shift || " ";

   return $char x ($maxlen - length($str)) . $str;
}

print pad("Foo Bar", 30, "x"); # prints 'xxxxxxxxxxxxxxxxxxxxxxxFoo Bar'