use File::Basename 'fileparse';
my $filename = fileparse("/foo/bar/baz/bat");
print "$filename\n";
__END__
bat