Select Code to Download

sub each_item (&@)
{
...
    foreach ( @_ ) { return 0 unless ( eval &$test ) }
    return 1 ;
}

sub each_item (&@)
{
...
    foreach ( @_ ) { return 0 unless &{$test} }
    return 1 ;
}