use strict;
use warnings;
BEGIN {
  $ENV{PERL_RL}='Stub';
};
use Term::UI;
use Term::ReadLine;
my $term = Term::ReadLine->new('lang');
my $reply = $term->get_reply( prompt => 'What is your default prog. lang?', default => 'Perl');
my $term2 = Term::ReadLine->new('OS');
$reply = $term2->get_reply( prompt => 'What is your OS?', default => 'MacOS');