eval {
    local $SIG{ALRM} = sub { die "alarm\n"; };
    alarm (10);
    $buf = <>;
    alarm (0);
};
print "Timed out.\n" if ($@);