File::Basename was a Perl core module for ages (it is not mentioned in perl5004delta and perldelta so I presume it was avialable even in 5.003). Anyway here an example of its usage:

use File::Basename;
my $fname = basename('/home/bin/scripts/test.pl');
[download]

--
Ilya Martynov, ilya@iponweb.net
CTO IPonWEB (UK) Ltd
Quality Perl Programming and Unix Support UK managed @ offshore prices - http://www.iponweb.net
Personal website - http://martynov.org