my $name;
{
    my @dummy = File::Spec->splitpath($path);
    $name = $dummy[2];
}