Select Code to Download

#!/usr/bin/perl -w

...

array_any_ok( $a, @arr, '$a is in @arr' );
array_empty_ok( @arr, '@arr is empty' );