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