use File::Path qw( file );  # Addresses issues with File::Spec
my $file = file($path)->basename();