$ cat /tmp/foo.pl
#!/usr/bin/perl
use strict;
use warnings;
use FindBin;
use Cwd;
print "FindBin: $FindBin::Bin\n";
print "Cwd:     ", cwd(), "\n";

$ ./tmp/foo.pl
FindBin: /tmp
Cwd:     /