sub Recurse
{
  my ($PWD) = @_;
[download]

This makes $PWD exist only during this call to this block. Recurrent calls will create new versions of $PWD.

The parenthesis make a list, and $PWD is the first value. This list gets aliased to the values in the @_ list, such that $PWD = $_[0].