DB<109> pwd
 => "/tmp\n"

##</code><code>##

my $old= \&pwd; 
my $new= sub { 
   chomp( my @ret=$old->(@_) ); 
   return @ret 
  }; 
*pwd=$new;

##</code><code>##

  DB<114> pwd
 => "/tmp"