<stdin>在工作期间没有工作 - Perl

Question

我写了一个小脚本，尝试编写一个计算器，只是为了测试我所知道的，但是我有一个问题，我想在while循环中读取<STDIN>，它只是冻结直到我杀了它与CTRL + C。

奇怪的是，它在eclipse控制台中有效，但在其他任何地方都没有。

相关代码：

require Term::Screen::Uni;
use strict;

...

sub basicCalc(){
    my $scr = new Term::Screen::Uni;
    $scr->clrscr(); 
    print("Basic calculator - type help for information about your options!\r\n");

    while($input == "1\n"){
        bcOPR();
    }

    $scr->clrscr(); 
    main();
}

sub bcOPR(){
    my $inp = <>;
    if($inp eq "help\n"){ $input = 0; }
}