У меня есть следующие две строки в Perl:

print "Warning: this will overwrite existing files.  Continue? [y/N]: \n";
my $input = <STDIN>;

Проблема в том, что строка печати не выполняется до того, как скрипт perl приостановит ввод. То есть сценарий perl просто останавливается на неопределенный срок без видимой причины. Я предполагаю, что вывод буферизован каким-то образом (именно поэтому я вставил \ n, но это, похоже, не помогает). Я довольно новичок в Perl, поэтому я буду признателен за любые советы, как обойти эту проблему.