#!/usr/bin/env perl
use warnings;
use strict;
use 5.10.1;
use utf8;
use open qw( :encoding(UTF-8) :std );
use Devel::Peek;
use Term::ReadPassword;
use Term::ReadLine;
my $term = Term::ReadLine->new( 'table_watch', *STDIN, *STDOUT );
$term->ornaments( 0 );

print 'Enter: ';
my $a = <>;
chomp $a;

my $b = read_password( 'Enter: ', 0, 1 );
use Encode qw(decode_utf8);
$b = decode_utf8( $b );

my $c = $term->readline( 'Enter: ' );
utf8::upgrade( $c );

Dump $a;
Dump $b;
Dump $c;

say $a;
say $b;
say $c;