my (undef,undef,$file) = File::Spec->splitpath( $path_and_file );