#!perl
package noecho;

sub read {
  local($FILE,$prompt)=@_;
  system("stty -echo");
  print $prompt;
  $input = <$FILE>;
  $input =~ s/\n$//;
  print "\n";
  system("stty echo");
  $input;
}
 
1;