use File::Spec::Functions;

my $fname = '/home/legato/filename.pl';
my ($vol, $path, $filename) = splitpath($fname);

# $filename now contains 'filename.pl'