questo è il codice del form alla fine vorei rendirizzamento alla home



codice:
#!/usr/bin/perl

use CGI;
#use HTML::Template;

$docpath = '/usr/www/lamirarreda.it/file/';

$q = new CGI;
print $q->header;

$email = $q->param('sendemail');
$from = $q->param('E-mail');
#$reply = $q->param('reply');
$subject = 'Form web';
$body = $q->param('body');
my $messaggio = 'Messaggio inviato 

';

@nomeparam = $q->param;
my %hash_param = ();
foreach $nomeparametro (@nomeparam) {
 	$hash_param{$nomeparametro} = $q->param($nomeparametro);	
}

foreach $chiave (keys(%hash_param)) {
	if ($hash_param{$chiave}) {
		$body .=  $chiave.': '.$hash_param{$chiave}."\n\n";	
		$messaggio.= $chiave.': '.$hash_param{$chiave}.'

';
	}	
}




open MAIL,"|sendmail -t";
print MAIL "To: $email\n";
print MAIL "From: $from\n";
print MAIL "Reply-To: $from\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$body\n"; 
close MAIL;

$filename = $q->param('txtImg');

print $filename;
@nomefile = split(/\\+/,$filename);
$dim = @nomefile;
$solonomefile = $nomefile[$dim-1];
print $solonomefile;

$filedoc = $docpath.$solonomefile;

unlink $filedoc;				# cancella il vecchio file se esiste
open (FILE, ">$filedoc");			# crea il file
while (read($filename, my $buffer, 1024)) 
{
	$fileok = 1;
	print FILE $buffer;
} 
close (FILE); 
chmod (0777,$filedoc);				# modifica i permessi

print $messaggio;

print "File Trasmesso";

$q = new CGI;
print $q->redirect($redirect);
print "Location: http://www.conceptfbo.it\n\n";