rlm@0: package Filter;
rlm@0: use base 'Exporter';
rlm@0: our @EXPORT = ('filter');
rlm@0: 
rlm@0: 
rlm@0: sub filter
rlm@0: {
rlm@0: 
rlm@0: 	$ref = shift;
rlm@0: 	@list = @_;
rlm@0: 	my @ret = ();
rlm@0: 	
rlm@0: 	for $element(@list)
rlm@0: 	{
rlm@0: 		if ($ref->($element))
rlm@0: 		{
rlm@0: 			push @ret, $element;
rlm@0: 		}
rlm@0: 	}
rlm@0: 
rlm@0: 	return @ret
rlm@0: 	
rlm@0: }
rlm@0: 
rlm@0: 
rlm@0: 1;