use strict;
use CGI qw(:standard);
use LWP::UserAgent;
use HTTP::Request::Common;

my $query = new CGI;
my $name = $query->param("name") || "";
my $city = $query->param("city") || "";

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

$ua = LWP::UserAgent->new;
$ua->request(POST 'http://webserverhere/mydirectory/act.cfm', [name => $name, city => $city]);
#not sure what do to from here?