use CGI;
use Cwd;

my $currentdir = getcwd;
print "Current dir is: $currentdir \n";

##</code><code>##

use FindBin;
print "\nBinary is: $FindBin::Bin \n";