#!/usr/bin/perl -w
use strict;
use warnings;
 
use CGI;

#print CGI::header();
#print "Hello World";

my $q = CGI->new;
my $userprofile = $q->param('profile');
$userprofile =~ s/-users//g;
#print $userprofile;

my $newurl = "https://www.clubhombre.com/homepad/index.php?viewpad=" . $userprofile;

print $q->redirect(
-location => "$newurl",
-status => 301,
);