Help for this page

Select Code to Download


  1. or download this
    use constant WEEK => 60 * 60 * 24 * 7;
my $expiry_date = sprintf '%04d-%02d-%02d',
  sub { $_[5]+1900, $_[4]+1, $_[3] }->(localtime(time + 2 * WEEK));
  2. or download this
    print MAIL <<"END_OF_MAIL";
To: bar\@foo.com
...

END_OF_MAIL