my ( undef, undef, $name ) = File::Spec->splitpath($path);
print "$name\n";