#!/usr/bin/perlml -- ## ## ## ## perltidy -olq -csc -csci=3 -cscl="sub : BEGIN END " -otr -opr -ce -nibc -i=4 -pt=0 "-nsak=*" ## perltidy -olq -csc -csci=10 -cscl="sub : BEGIN END if " -otr -opr -ce -nibc -i=4 -pt=0 "-nsak=*" ## perltidy -olq -csc -csci=10 -cscl="sub : BEGIN END if while " -otr -opr -ce -nibc -i=4 -pt=0 "-nsak=*" #!/usr/bin/perl -- use strict; use warnings; use CGI (); use CGI::Carp qw( fatalsToBrowser ); use Mail::Sendmail qw/ sendmail /; Main( @ARGV ); exit( 0 ); sub Main { my $q = CGI->new; ## NONSENSE ## my @values = split /[\s=]+/, $q->param('POSTDATA'); #~ Send( split /[\s=]+/, $q->param('POSTDATA') ); Send( $q ); return print Thanks( $q ); } sub Send { my( $q ) = @_; my $from = $q->param( 'from' ); my $msg = $q->param( 'msg' ); my %mail = ( 'smtp' => "smtp.###.co.za", 'port' => 465, 'auth' => { user => '###@###.co.za', password => '###' }, To => '###@###.co.za', From => $from, Message => $msg, ); sendmail( %mail ) or die $Mail::Sendmail::error; } ## end sub Send sub Thanks { return $cgi->header, < Thank you for your message

Thank you for leaving a message

We will respond as soon as possible.

END } ## end sub Thanks __END__