use Cwd;
print cwd()."\n";

##</code><code>##

# /usr/local/src/perl/> perl test.pl
/usr/local/src/perl

##</code><code>##

# /home/foobar/> perl /usr/local/src/perl/test.pl
/home/foobar