Someone

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

my @examples = (
    {
	name => 'Test Eins',
    },
    {
	name => 'Test Zwei',
    },
);

my @do_examples = (0, 1);

for (@examples[@do_examples]) {
    my $testname = $_->{name};
    print "$testname...\n";
    local $@;
    eval {
	die 'hallo';
	1;
    } or do {
	warn;
    };
}