#!/bin/perl # # PROGRAM: redirect.cgi # # PURPOSE: Demonstrates how to generate a simple redirection request # for the remote browser that accesses this CGI program. # # Copyright DevDaily Interactive, Inc., 1998. All Rights Reserved. # #-------------------------------# # 1. Create a new CGI object. # #-------------------------------# use CGI; $query = new CGI; #----------------------------------------------------------------------# # 2. Issue the redirection request. (Always use an 'absolute' URL.) # #----------------------------------------------------------------------# print $query->redirect('http://www.DevDaily.com/'); exit;