perl -MFile::Spec -le 'print for File::Spec->path'