use CGI ':standard';

print CGI->redirect(-location=>"http://www.food.com/bar.html");