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