#!/usr/bin/perl -Tw
use strict;
use CGI;

use constant ERHTM => 'toerror.htm';
use constant OUURL => 'http://www.life-coaching-resource.com';

my $q = CGI->new() or die "Could not create CGI object";

my $r;
if ( defined $q->param('u') ) {
	$r = $q->param('u')
}
else {
	print $q->redirect(OUURL . '/' . ERHTM);
	exit;
}

print $q->redirect($r);