Select Code to Download

#!/usr/bin/perl
use strict;
...
else {
    die "Unsupported mode: $mode\n";
}

my $ALARM_EXCEPTION = "alarm clock restart";
eval {
...
    alarm 0;
};
if ($@ && $@ !~ quotemeta($ALARM_EXCEPTION)) { die }

use POSIX qw[ ETIMEDOUT EWOULDBLOCK ];
use Socket qw[ SOL_SOCKET SO_RCVTIMEO ];
...
my $response = <$client>;
die 'Timeout' if !$response and $! == ETIMEDOUT || $! == EWOULDBLOCK;
...