Path::Tiny for all your needs

$ perl -l -
use Path::Tiny qw/ path /;
print path( '/anything/you/want' )->basename;
__END__
want
[download]