sub reality_test {
    do {
        my $testme=shift;
        #do tests
        print "$testme was less than allowed\n" if test fails;
    } while(@_);
}
[download]

(argh, Opera managed to munge that a bit. corrected)

--
Me spell chucker work grate. Knead grandma chicken.