I'm sure the gods of complete http headers will strike me for this one, but in a quick and dirty situation, this should function:

As your first print statement send:

print "Location: http://www.redirect.me/here\n\n";
[download]

As I said before, this returns incomplete HTTP headers, however it should provide the desired function in an emergency situation.

Heres an example (redirects you to yahoo):
http://www.jerryfowler.net/redirect.cgi

And here's the code:

#!/usr/bin/perl

print "Location: http://www.yahoo.com\n\n";
[download]

-Jerry
http://www.digilliance.net