#! /usr/bin/perl -w

use strict;
use diagnostics;
use warnings;

use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $cgi = CGI->new();
my %params = $cgi->Vars(); #damit hast Du schon mal das parsen der Eingaben gespart...

my $test = 0; # ??? ich versteh nicht so ganz was das soll, übernehme es aber von dir...
if($test != 0){ # kann bei deinem Skript allerdings nie passieren
  print $cgi->header(-type => 'text/html', -status => '200 OK');
  print "Ausgabe....";
}
else{
  print $cgi->redirect(-url => "http://www.perl-community.de");
}

my $sendmail = '/usr/bin/sendmail';
#...usw. ...