#!/usr/local/bin/perl

# request-mailer.pl
#   A wrapper for Request_mailer.pm
#
#   12/07/2002 Version 2.0.2
#   Use and distribute this script as per the Artistic License
#   Copyright (C) 2005 Igor S. Livshits <mailto:request-mailer@ayradyss.org>


# Define libraries and modules
#
use CGI::Request_mailer;        # the actual code as an object


# Note!
# It is imperative to pass an e-mail address on creation
# in order to thwart unwated spam relaying.

# Invoke the program object
#
$mailer= new CGI::Request_mailer("request-mailer\@ayradyss.org"
                                # also pass file names of the report header
                                # and footer as the second and optional third arguments
                                 );

$mailer->Run();


# Terminate gracefully
#
exit;