Added the broken smtp server I used for testing

This is for when we get EPIPE when somewhere we are mailing
to disconnects early. It could be useful for testing broken
states in smtp_client.pl too.

contrib/bad_smtp_server.pl

@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+
+use IO::Socket;
+
+my $server = IO::Socket::INET->new(Listen => 5, LocalPort => 2525, Proto => "tcp");
+$server || die $!;
+
+while (my $client = $server->accept()) {
+    print "Got connection\n";
+    $client->print("220 hostname\r\n");
+    my $helo = <$client>;
+    $client->print("250 hi\r\n");
+    my $mail = <$client>;
+    $client->print("250 ok\r\n");
+    my $rcpt = <$client>;
+    $client->print("250 ok\r\n");
+    my $data = <$client>;
+    $client->print("354 ok\r\n");
+    my $line = <$client>;
+    $client->close();
+    print "Closed client\n";
+}