*** /usr/local/share/perl/5.6.1/Term/Screen/Wizard.pm.old       2003-02-14
09:59:20.000000000 +0000
--- /usr/local/share/perl/5.6.1/Term/Screen/Wizard.pm   2003-02-14
09:59:29.000000000 +0000
***************
*** 18,26 ****
    foreach my $f (@_) {
      $cmd.="$f ";      
    }
    system "stty -raw echo";
    system @_;              
!   system "stty raw -echo";
  }
   
  sub add_screen {
--- 18,27 ----
    foreach my $f (@_) {
      $cmd.="$f ";      
    }
+   my $saveterm = `stty -g`;
    system "stty -raw echo"; 
    system @_;              
!   system "stty $saveterm";
  }
   
  sub add_screen {