use FindBin qw($RealBin);
  print "I am here: $RealBin\n";
##</code><code>##

  $ perl5.8.3 test.pl
  I am here: /home/krang

##</code><code>##

  $ perl5.8.3 test.pl
  I am here: /home/krang/