sub shortencentered {
  
  my $f = shift || return;
  my $m = shift || 42;
  
  return $f if length $f <= $m;

  my $a = $m - 3;
  my $s = int $a / 2;
  my $e = $a - $s;

  return substr($f, 0, $s) . '...' . substr($f, -$e)
}