package filter;

use strict;
require Exporter;
{ my $nowarn= *import }
*import= \&Exporter::import;
use vars qw( @EXPORT );
@EXPORT= qw( filter );

sub filter(&@) {
    my( $code, @vals )= @_;
    # local( $_ ); # Done by the loop.
    for(  @vals  ) {
        $code->();
    }
    wantarray ? @vals : join "", @vals;
}

1;