Select Code to Download

use CGI;
use Cwd;

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

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