Sorry, I forgot to mention that I did try $|=1 already. It doesn't work!
[gargle@vlds204 reporting]$ cat test.pl
#!/usr/bin/perl
use Modern::Perl;
use Term::Prompt;
my $mypass = prompt( 'x', "password:", '', '' );
$|=1;
say "alfa";
say "beta";
[gargle@vlds204 reporting]$ ./test.pl | tee test.txt
x
password: alfabeta[gargle@vlds204 reporting]$ ./test.pl
password: x
alfa
beta
[gargle@vlds204 reporting]$
I'm starting to think my perl install is messed up. Are there any unit tests I can run?
--
if ( 1 ) { $postman->ring() for (1..2); }
|