print "Status: 302 Moved Temporarily\n";
print "Location: $url\n\n";