Perl Script Help Get it Working For me!

Perl Script Help Get it Working For me! is project number 265185 posted at GetAFreelancer.com. Click here to post your own project.

Closed
(Project expired)

Status:	Closed
Budget:	$30-250
Created:	05/22/2008 at 6:38 EDT
Bidding Ends:	07/21/2008 at 6:38 EDT
Project Creator:	bananahead   Buyer Rating: (No Feedback Yet)
Description:	I found the following script on the net and I need it fixed. I cant get to work on my server and if you can show me you can successfully get it to work, I will take the bid. The script is supposed to perform a Referal Spoof, and this is what Im after. User visits the page (the script) and it is redirected to another page, which sees the referer as the one set on the script #!usr/bin/perl -w print "Content-Type: text/htmlnn"; my $url = "http://www.example.com"; use LWP::UserAgent; use HTTP::Request::Common qw(GET POST); my $agent = LWP::UserAgent->new; my $req = GET $url, Referer => ""></a><script>top.location.href='http://www.someotherblog.com';</script><a href="http://localhost""; #print $agent->request($req)->as_string; Thanks
Job Type:	Perl/CGI
Database:	(None)
Operating system:	(None)
Bid count:	10
Average bid:	$ 34