print $q->redirect(-url => "http://redirected_url");

##</code><code>##

Status: 302 Moved
Location: http://redirected_url