OK: perl -mFile::Basename)