#!/usr/bin/perl -w
# Simple test script to test Mail::Sendmail under Win32

use strict;
use Mail::Sendmail;

# Set up some default configuration
unshift @{$Mail::Sendmail::mailcfg{'smtp'}} , 'smtprelay.t-online.de';
$Mail::Sendmail::mailcfg{'from'} = "Corion (script) <corion\@sends.no.spam>";

my %mail = (
  Bcc => 'corion@wants.no.spam',
  Subject => "Test 1",
  'X-Mailer' => "Mail::Sendmail test script v0.01/$Mail::Sendmail::VERSION",
  Message => "Test number 1",
);

sendmail( %mail ) or die "Error: $Mail::Sendmail::error\n";