Select Code to Download

  %mail = ( To      => 'you@there.com',
            From    => 'me@here.com',
...
           );

  sendmail(%mail) or die $Mail::Sendmail::error;