<? header("Location: http://affiliate/url"); ?>

#!/usr/bin/perl
print "Content-type:text/htmln";
print "Location: http://affiliate/urlnn";