use Cwd;
my $current_dir = cwd;