print $time_out_request_msg;
my $time_out = <STDIN>;
chomp $time_out;
if (valid_timeout($time_out)) {
    $SIG{ALRM} = sub { # ... };
    alarm $time_out;
}
while (1) {
    # ...
}