use Cwd; my $cwd = cwd();