#!/usr/bin/perl
#-----------------------------------------------------------------------------
#
#  testmsg.pl
#
#-----------------------------------------------------------------------------
#
#  POPular -- A POP3 server and proxy for large mail systems
#
#  $Id: testmsg.pl,v 1.3 2001/02/09 15:59:07 sqrt Exp $
#
#  http://www.remote.org/jochen/mail/popular/
#
#-----------------------------------------------------------------------------

$msg = <<"__EOF__";
From: test\@example.com
Subject: Testmail

Content
More Content
. Line begins with a dot
Next line has only a dot
.
This is the last line
__EOF__

$msg =~ s/\n/\r\n/g;

print "$msg";

#-- THE END ------------------------------------------------------------------