print header,start_html,h1('redirecting to a different page'); ##

##

$ perl -le '
use CGI qw/:standard/;
print redirect("http://some.where.else");
'
Status: 302 Found
Location: http://some.where.else

##

##


  
    
  
  
    redirecting to a different page