Create basename_and_dirname.plx

demonstration of File::Basename;