Help for this page
# on unix: > perl -MFile::Basename=dirname -e'print dirname q(C:\\\\test\\test.pl +)' .