В смысле никак, а это

 my $wait_for_input = AnyEvent->io (
     fh   => \*STDIN, # which file handle to check
     poll => "r",     # which event to wait for ("r"ead data)
     cb   => sub {    # what callback to execute
        $name = <STDIN>; # read it
     }
  );

и это

  my $hdl; $hdl = new AnyEvent::Handle
     fh => \*STDIN,
     on_error => sub {
        my ($hdl, $fatal, $msg) = @_;
        AE::log error => $msg;
        $hdl->destroy;
        $cv->send;
     };

!?

Хорошо, у перла есть что-то типа finally для всей программы, OnExit какой-нибудь?

(Сча, небось, если и есть – то с асинхронностью не дружит).

О а ещё на винде можно сказать «иди нафиг» тому, кто пытается тебя закрыть – и даже консольное окно не закроется, лишь предложит убить процесс через несколько секунд.

В перле так можно? Мне бы подошло.

my $cond = AnyEvent->condvar;
my $signal = AnyEvent->signal( signal => 'INT', cb => sub {
  say "INT recvd";
  $cond->send;
});
$cond->recv;

– Это под Windows вообще не будет работать?
Просто если это убрать, то после нажатия Ctrl+C в консоли я получаю «Terminating on signal SIGINT(2)», а если поставить это – то Ctrl+C просто игнорируется и ничего не происходит.

Или я что-то не так написал?

Вот здесь заменил блок с $signal на

END{
  say 'END';
  $cond->send;
};

По Ctrl+C умерло и не выполнило ничего.

Почему GUI, у меня ж консольное приложение.

потому что под виндой в "консоли" принято страдать.

WSL немного облегчает страдания.

Я вот только не уверен, что тот "терминал", который в 10ке, нормально работает с Ctrl+C и т.п.