Working PERL on http redirection
Minimized...