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

#!/usr/bin/perl

use Mail::Cclient qw(rfc822_date);

$date = rfc822_date;

print "$date\n";

exit();