Re: how to use angle operator with timeout?

[Khen1950fx]

I couldn't get alarm to work for me in a consistent manner, so I tried Tie::Scalar::Timeout.

#!/usr/bin/perl -l

use strict;
use warnings;
use Tie::Scalar::Timeout;

tie my $line, 'Tie::Scalar::Timeout',
  EXPIRES => '+1s', POLICY => undef;

$line = system("whoami");

while (defined($_ = $line)) {
    foreach $line(my @lines) {
        print "$_" or die $@;
    }
}

[Anonymous Monk]

couldn't get alarm ....

What has that nonsense got to do with readline, ie the OPs question?