#!/usr/bin/env perl use File::Which; use Email::EzPz::List; use strictures 1; { package Eval::WithLexicals::Scratchpad; use vars qw($list); $list = Email::EzPz::List->new( ezmlm_bindir => $ARGV[0], list_dir => $ARGV[1], ); } do +which('tinyrepl'); exit 0;