#!/usr/bin/perl
use strict;
use warnings;

my $timeout = 180;
my @array = (
        "command 1 goes here",
        "command 2 goes here",
        "command 3 goes here",
        );

for (@array) {
eval {
    local $SIG{ALRM} = sub {
        die "alarm\n";
    };
    alarm $timeout;
    system($_);
    alarm 0;
};
[download]