perldoc -m File::Basename

##</code><code>##

use File::Basename qw(basename);