Select Code to Download

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

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

perl -Mstrict -we '                                                   
+                                                          
  my $dir = shift or die "missing dir name...\n";
...

full: temp01/subtemp01/subsubtemp04/file04
shortened: file04