title: Print the perl script's path without resolving symlink
body: <p>How do I print the script's directory path <strong>without</strong> resolving the symlink?</p>
  
  <p>EDIT: I realized from below comment that it is not possible using FindBin, but is there a way around to get the script's directory ?</p>
  
  <pre><code>use FindBin;
  use Cwd;
  use Cwd 'abs_path';
  use File::Spec::Functions qw( rel2abs );
  BEGIN
  {
     push @INC, "$FindBin::Bin";
  }
  print "rel2abs:";
  print rel2abs("$FindBin::Bin");
  print "\n";
  
  print "abs_path:";
  print abs_path("$FindBin::Bin");
  print "\n";
  </code></pre>
  
  <p>This script prints:</p>
  
  <pre><code>/tmp/one/two$ perl 3/symlink_to_four/test.pl 
  rel2abs:/tmp/one/two/3/four
  abs_path:/tmp/one/two/3/four
  </code></pre>
  
  <p>I want it to print <em>/tmp/one/two/3/symlink_to_four</em></p>
  
  <pre><code> /tmp/one/two/3$ ls -l
   four
   symlink_to_four -&gt; four
  </code></pre>
  
  <p>Why I need this: samba is configured in the Linux box where my Perl script is going to run, if I replace first portion of the Linux path with <code>\\linux-machine-name</code>
   and rest of <code>/</code> with <code>\</code>, I get windows path, which I will save it in a file and will get consumed by other script, for instance, in the above example, I am trying to convert <code>/tmp/one/two/3/symlink_to_four</code> to <code>\\linux-machine-name\one\two\3\symlink_to_four</code>, I know how to figure-out the <code>linux-machine-name</code>, I don't want the resolved path, because I cannot figure out the windows equivalent path with resolved path, only <code>\\linux-machine-name\one\two\3\symlink_to_four</code> is valid, not <code>\\linux-machine-name\one\two\3\four</code>, it's how samba is configured.</p>