Help for this page
$ uname -s Darwin ... perl -MFile::Basename -lne 'BEGIN{fileparse_set_fstype("DOS")} prin +t basename($_)' four