#!/usr/local/bin/perl
use strict;
use warnings;


use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use DBI;
use URI::Escape;
use strictures;
use CGI;
use URI;

my $q = new CGI ;
my $url = "httpcandy";
 
# Process an HTTP request
#my @values  = $q->multi_param('form_field');
my $value   = $q->param('param_name');


print "Content-type: text/html\n\n";
#print "<pre>\n";
#
#foreach my $key (sort keys(%ENV)) {
#  print "$key = $ENV{$key}<br/>";
#}
#print "</pre>\n";



my $requested = URI->new( CGI::url() );
$requested->query( $ENV{QUERY_STRING} || $ENV{REDIRECT_QUERY_STRING} )
    if url_param();


#print header(),
#    start_html(),
#    h1("requested:"),
#    blockquote($requested),
#    h1("url:"),
#    blockquote($value),
#    h1("nothing else"),
#
#    end_html();
#    
if ($value =~ /http/)
{
   print "<META HTTP-EQUIV=refresh CONTENT=\"1;$value\">\n";
}
else
{
   print "<META HTTP-EQUIV=refresh CONTENT=\"1;URL=http://$value\">\n";
};

exit;