Help for this page
use File::Spec; ... print $f->curdir, "\n"; print $f->updir, "\n";
$ perl ./test_file_spec . .. $