Select Code to Download

sub shorten_filename {
    my ($filename, $max_length) = @_;
    $max_length //= 50;  # default to 50 characters
...
    
    return $start . $ellipsis . $end;
}

sub shortencentered {
  
  my $f = shift || return;
...

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