Help for this page

Select Code to Download

Select or download this
```
  DB<109> pwd
 => "/tmp\n"
```

Select or download this

my $old= \&pwd; 
my $new= sub { 
...
   return @ret 
  }; 
*pwd=$new;

Select or download this
```
  DB<114> pwd
 => "/tmp"
```