#!/usr/bin/perl
#
# redir.cgi

use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser);

my $url = "http://www.....shtml?danke";

print <<endofprint;
Status: 302 Found
Location: $url

endofprint