Perl: таймаут для <STDIN>, еще пару вопросов.

http://www.rocketaware.com/perl/perlfunc/alarm.htm

> Как их лучше интергрировать в перл? делать на каждую строчку exec и так по числу строк?

создай строку с помощью here document http://www.shlomifish.org/lecture/Perl/Newbies/lecture4/string-forms/here_doc...

и передай ее в system либо open

насчет первого, можно обойтись и без сигналов
#!/usr/bin/perl
use warnings;
use strict;
use IO::Select;

my $select = IO::Select->new(\*STDIN);
print "У вас 5 сек\n";
if ( $select->can_read(5) ) {
    my $str = <STDIN>;
    print "Вы сказали $str\n";
} else {
    print "Ваши 5 секунд иссякли\n"
}

а вообще лучше и без IO::Select;
#!/usr/bin/perl
use warnings;
use strict;

vec(my $rin = '',fileno(STDIN),1) = 1;
if ( select($rin,undef,undef,3) ) {
    my $str = <STDIN>;
    print $str."\n"
} else {
    print "Timeout\n"
}