2 потока запустить? Но многопоточность в перле весьма своеобразная.

Форкнуть читальник и от него просить данные когда надо

Ну или ae::readline::gnu, или как-то около название

Гуглятся примеры с Term::ReadKey;

С асинхронным дошло уже до чтения доков ноды

Да на него прям все ссылаются!

Ну вот видишь как хорошо. Сам задал вопрос, сам нашел ответ.

Получилось!

use Term::ReadKey;

sub fn_stdin_line #()
{
  ReadMode('normal');
  my $data = <>;
  chomp($data);
  return $data;
};

sub fn_stdin_all #()
{
  my $data = '';
  my $key;
  ReadMode('raw');
  while(1){
    $key = undef;
    $key = ReadKey(-2);
    if(defined($key)){
      $data .= $key;
    }else{
      last;
    }
  }
  ReadMode('normal');
  return $data;
};

Вроде работает именно так, как я хотел:

say 'Type a line:';
my $line = fn_stdin_line();
say 'Your line:';
say $line;
say 'Waiting 5 sec.';
sleep(5);
say 'Eating!';
my $all = fn_stdin_all();
say 'Type another line:';
$line = fn_stdin_line();
say 'Your last line:';
say $line;
say 'Eaten data:';
say $all;

Можно даже

sub fn_stdin_line #($noempty)
{
  my($noempty) = @_;
  ReadMode('normal');
  while(1){
    my $data = <>;
    chomp($data);
    if(($data ne '') || !$noempty){
      return $data;
    }
  }
};

say 'Type a line:';
my $line = fn_stdin_line();
say 'Your line:';
say $line;
say 'Waiting 5 sec.';
sleep(5);
say 'Eating!';
my $all = fn_stdin_all();
say 'Type another line:';
$line = fn_stdin_line();
say 'Your last line:';
say $line;
say 'Eaten data:';
say $all;

sub fn_stdin_line #($noempty)
{
  my($noempty) = @_;
  ReadMode('normal');
  while(1){
    my $data = <>;
    chomp($data);
    if(($data ne '') || !$noempty){
      return $data;
    }
  }
};

Што ето обоже

select епт

Съедает stdin, чтобы в запрошенный line не попало то, что было «случайно» введено в то время, пока код работал.

Правда он у меня почему-то часть $all (data) просирает где-то, но так как в реальном использовании я всё равно его выкину – мне пойдёт.

... пока котэ работал

но зачем?

под виндой прямых способов нет

у вас на джээсе и так стопицот фреймворков для фронтенда, неужели мало?

Потому что вот ввёл ты «код из СМС», и прога зависла (ибо делает запрос, и так далее).
А ты такой, ИЩЛЯ НАХУЙ, и жмёшь enter несколько раз.

Но код, такой, «введите 2FA пароль» – а кто энтеры выкинет!?