$ perl -MFile::Basename -e'$f="/usr/local/bin/foo"; print basename(  $f );'
foo