sub getlineUnix {
  my $message;

  eval {  
    local $SIG{ALRM} = sub { 
      $old = $readline::line; 
      die     
    };
    
    alarm($config{timeout}) unless $^O =~ /win32/i;
    $message = $term->readline("Talk: ", $old);
    $old = $readline::line = '';
    alarm(0) unless $^O =~ /win32/i;
  };      

  $message;
}