use Cwd; 
my $cwd = getcwd();