#!/usr/bin/perl

use strict ;
use warnings ;
use autodie ;

use Stanford::WebApps::SharedEmail::Util qw( send_email ) ;

my $recipient = $ARGV[0] ;

if (!$recipient) {
    die 'no recipient specified' ;
}

send_email(
    'test-email.txt.tmpl',
    {},
    $recipient,
    'Test e-mail from the shared e-mail application',
);

