Select Code to Download

#!/usr/bin/env perl
use strict;
use warnings;
...
print "Should be: ", $params{umlaut},$/;
print '-' x 79,$/;
print $msg->as_string;

Should be: fööbär
----------------------------------------------------------------------
+---------
Content-Transfer-Encoding: binary
...
<h1>fööbär</h1>

--_----------=_158081178855330--