#!/usr/bin/perl
print "MIME-Version: 1.0\r\n";
print "Content-Type: multipart/x-mixed-replace; boundary=frontier\r\n";
print "\r\n";
print "This is a message with multiple parts in MIME format.\r\n";
print "--frontier\r\n";
print "Content-Type: text/plain\r\n";
print "\r\n";
print "Connected as Anonymous.\r\n";
print "--frontier\r\n";
print "Content-Type: application/octet-stream\r\n";
print "Content-Transfer-Encoding: base64\r\n";
print "\r\n";
print "PGh0bWw+CiAgPGhlYWQ+CiAgPC9oZWFkPgogIDxib2R5PgogICAgPHA+VGhpcyBpcyB0aGUg\r\n";
print "Ym9keSBvZiB0aGUgbWVzc2FnZS48L3A+CiAgPC9ib2R5Pgo8L2h0bWw+Cg==\r\n";
print "--frontier--\r\n";