Select Code to Download

use File::Basename qw(basename dirname);

...

my $file = basename $path;  # $file eq 'perl'
my $dir = dirname $path;    # $dir eq '/usr/local/bin'

my ($dir, $file) = $path =~ m{^(?:(.*)/)?([^/]+)$}x;