#!/usr/bin/perl # # Redirect test # use strict; use CGI qw(:standard escapeHTML); use CGI::Carp qw(fatalsToBrowser); print redirect(param('url'));