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