Hi,
Wo liegt denn nun der Fehler?
Du darfst vor print "location...", keinen header senden, ein header ist fertig, sofern die Leerzeile kommt.
Also:
print "Status: 302 Moved\n"; # steht _im_ header
print "location: $url\n\n"; # header abgeschlossen, leerzeile folgt
Hotte