#!/usr/bin/perl
$now = name;
$wanted = somedata;

print "Location: open.cgi?id=$now\n\n";
exit;