Suche Code/Script/Prog um URL zu verändern und aufzurufen

#!/usr/bin/perl -w
#
use strict;
use IO::Socket::INET;

my $host = "www.msn.com";
my $proxy = ''; # proxy, you can leave this empty

 print "[~] Host: $host\n";
 
# proxy handling
my ($addr, $port) = ($proxy ne '') ? split(/:/, $proxy) : ($host, 80);
if($proxy ne '')
{
 print "[~] Using a proxy\n";
}
else
{
 print "[~] You're using NO proxy!\n";
 sleep(1);
}



for(my $i=1;$i<99;$i++)
{
 my $sock = new IO::Socket::INET(PeerAddr => $addr, PeerPort => 80, Proto => 'tcp', Timeout => 8) or die('[-] Could not connect to server');

 my $data = "action=details&id=$i&wert=5&kat=WOMEN&user=3psi#";
 
 print $sock "POST http://$host/cgi-bin/wallpaper/pic.cgi HTTP/1.1\r\nHost: $host\r\nConnection: Close\r\nContent-Type: application/x-www-form-urlencoded\r\nContent-Length: ".length($data)."\r\n\r\n$data\r\n";
 
}
print "\n";