use File::Spec; die File::Spec->curdir; [download]
In reply to Re^3: recognizing OS by Anonymous Monk in thread recognizing OS by PerlZealot