my $short = sub {
    my $path = shift;
    $path =~ s{.*/}{};
    $path;
};