The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

use Mail::Cclient qw(rfc822_date);

print "1..2\n";

print "ok 1\n";

rfc822_date or print "not ";

print "ok 2\n";