{
      my $old_line_buffer;
 
      $attribs->{event_hook} = sub {
 
        my $line_buffer = $attribs->{line_buffer};
          
        return if $line_buffer eq $old_line_buffer;
 
        $term->replace_line($line_buffer), $term->redisplay()
          if ($line_buffer =~s/print\W/\U$&/g);
 
      };
    }