sub truncate_string {
  my($string, $maxlength) = @_;
  $string = substr($string, 0, $maxlength+1);
  die("Can't truncate, no spaces\n") if(index($string, ' ') == -1);
  return substr($string, 0, rindex($string, ' ') - 1);
}