sub standard_fill
{
  my( $string, $length ) = @_;
  sprintf "%-${length}s", $string
}
[download]