$SIG{ALRM} = \&timeout_code;
alarm = $N;
while (<COM>) {
   $out .= <COM>;
}
$SIG{ALRM} = "";