Pure-perl core-only echo-off password reader

pass.pl

use Mojo::Base -strict;

# pure perl echo-off password reader
use POSIX qw(:termios_h);

sub read_pass {
  my $term = POSIX::Termios->new;
  my $fd = fileno(STDIN);
  $term->getattr($fd);
  my $oterm  = $term->getlflag;

  $term->setlflag($oterm & ~ECHO | ECHONL);
  $term->setattr($fd, TCSANOW);

  chomp(my $pass = <STDIN>);

  $term->setlflag($oterm);
  $term->setattr($fd, TCSANOW);

  return $pass;
}

say "Hello, please input your password";
my $pass = read_pass;
say "Thank you, I got <<$pass>>";