in reply to How do I find what directory the perl script is running from?

I picked up this cross-platform directory checker somewhere... Works on both NT and *NIX 
if ($0=~m#^(.*)\\#) {
    $cgi_dir = "$1";
} elsif ($0=~m#^(.*)/# ) {
    $ cgi_dir = "$1";
} else  {`pwd` =~ /(.*)/;
    $ cgi_dir = "$1";
}

[download]

In Section Seekers of Perl Wisdom