#!/usr/local/bin/perl -w
use strict;
use CGI qw(:standard); #Perl web CGI module
use CGI::Carp qw(fatalsToBrowser);
    
my $query = new CGI;
my $name = $query->param("name") || "";
my $city = $query->param("city") || "";

#do perl mail stuff here
#etc......

#now pass parameters here
print $query->redirect("http://webserverhere/mydirectory/act.cfm?name=$name&city=$city");