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