tie $cwd => 'main';       # the example ties in package main
{
  local $cwd = '/some/other/directory';
  # execute in /some/other/directory
}
# resume in original working directory