$inputline->password; sub Prima::InputLine::password { my( $inputline ) = @_; local $@; return "".eval { $inputine->{undo}->[-1][1][1] }; }