$ 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