#!/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 );

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

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

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

Enter: ü
Enter: 
Enter: ü                                                                                                                     
SV = PV(0x1294100) at 0x13f4118
  REFCNT = 1
  FLAGS = (PADMY,POK,pPOK,UTF8)
  PV = 0x141b390 "\303\274"\0 [UTF8 "\x{fc}"]
  CUR = 2
  LEN = 80
SV = PV(0x11f05c0) at 0x13f20c8
  REFCNT = 1
  FLAGS = (PADMY,POK,pPOK)
  PV = 0x159f020 "\303\274"\0
  CUR = 2
  LEN = 16
SV = PV(0x11f0420) at 0x13f1fc0
  REFCNT = 1
  FLAGS = (PADMY,POK,pPOK)
  PV = 0x1593100 "\374"\0
  CUR = 1
  LEN = 16
ü
ü
ü