```perl
my $startcwd;
```