# %params defined elsewhere, holding CGI input data
open(OUT, '|-', '/path/to/cgi') or die $!;
foreach my $key (keys %params) { 
    print OUT "$key=$params{$key}\n";
}
close(OUT);