my $input = '';
eval {
    local $SIG{ALRM} = sub { die; };
    alarm 3;
    while (<>) {
        $input .= $_;
    }
};
print $input;