#!/usr/bin/perl -w
#-----------------------------------------------------------------------------

use strict;

my $cmd = 'perl -e "sleep 1;print STDOUT qq(Hallo 1),$/;print STDERR qq(Hallo 2),$/"';
my $text = "$cmd 2>&1";
my $return;

sub mit_system {
    eval {
        local $SIG{ALRM} = sub { die "alarm\n" };       # NB \n required
        alarm 2;
        $return = system($text);
        alarm 0;
    };
    die if $@ && $@ ne "alarm\n";       # propagate errors
    if ($@) {
        # timed out
        print "\n\$\@ = $@\ntimeout, return: $return\n";
    }
    else {
        # didn't
        print "\nreturn: $return\n";
    }
}

sub mit_qx {
    eval {
        local $SIG{ALRM} = sub { die "alarm\n" };       # NB \n required
        alarm 2;
        $return = qx($text);
        alarm 0;
    };
    die if $@ && $@ ne "alarm\n";       # propagate errors
    if ($@) {
        # timed out
        print "\n\$\@ = $@\ntimeout, return: $return\n";
    }
    else {
        # didn't
        print "\nreturn: $return\n";
    }
}

mit_system();

mit_qx();