use File::Basename qw( basename );  # Also core module
my $file = basename($path);