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