eval {
    $|++;
    local $SIG{ALRM} = sub { die "timeout!" };
    alarm(2);
    print "INPUT: ";
    my $input = <STDIN>;
    print "INPUT: $input";
};
print "END!\n";