Select Code to Download

use strict;
use warnings;
...
        }
    }
}

$ perl sigalarm.pl
listing on port 6681
! alarm handler