#! /usr/bin/perlml use Mail::Sendmail; use CGI; @values=(); &parse; &send; &thanks; sub parse { my $q = new CGI; my $data = $q->param('POSTDATA'); @values = split (/[\s=]+/, $data); } sub send { $mail{'smtp'} = "smtp.###.co.za"; $mail{'port'} = 465; $mail{'auth'} = {user => '###@###.co.za', password => '###'}; %mail = ( To => '###@###.co.za', From => "@values[3]", Message => "@values[1]\n\n@values[5]" ); sendmail(%mail) or die $Mail::Sendmail::error; } sub thanks { print "Content-type: text/html \n\n"; print < Thank you for your message

Thank you for leaving a message

We will respond as soon as possible.

END }