#!/usr/bin/perl

BEGIN {
        # This logs all errors to a log file with info on what happened
        # to cause the script to fail.

        use CGI::Carp qw(carpout);
        open(LOG, ">cgi-error.log")
            or die "Unable to write to mycgi-log: $!\n";
        carpout(*LOG);
        close(LOG);

    }

    use CGI  qw(:cgi);
    $in   = new CGI;    

$url = $in->param('url');

$url = 'http://www.wtv-zone.com' if (!$url);

print "location: $url\n\n";