http://www.perlmonks.org?node_id=140534


in reply to Win32 Apache && File::Basename

Win32::GetLongPathName($0) will return the long filename.

Simon Flack ($code or die)
$,=reverse'"ro_';s,$,\$,;s,$,lc ref sub{},e;$,
=~y'_"' ';eval"die";print $_,lc substr$@,0,3;