#!/usr/bin/perl -Tw

use strict;
use warnings;

%ENV = ();

die "fail\n" unless @ARGV == 2;

if ($ARGV[0] =~ /^([a-z0-9-_]+)$/) {
    my $list = $1;

    if ($ARGV[1] =~ /^([ -~]+)$/) {
	my $address = $1;
	
	exec '/etc/exim4/scripts/is-list-member', '-p', $list, $address;
    }
}

die "fail\n";