$ pwd -L
/discover/nobackup/mathomp4
$ pwd -P
/gpfsm/dnb44/mathomp4

##</code><code>##

$Bin         - path to bin directory from where script was invoked
$RealBin     - $Bin with all links resolved

##</code><code>##

$ cd $HOME
$ cat /discover/nobackup/mathomp4/MyTestScript/bin/test.pl
#!/usr/bin/env perl
use FindBin;
use File::Basename;
my $fvroot = dirname($FindBin::Bin);
print "Using Bin:     $fvroot\n";
my $fvroot2 = dirname($FindBin::RealBin);
print "Using RealBin: $fvroot2\n";
$ /discover/nobackup/mathomp4/MyTestScript/bin/test.pl
Using Bin:     /gpfsm/dnb44/mathomp4/MyTestScript
Using RealBin: /gpfsm/dnb44/mathomp4/MyTestScript