#!/usr/bin/perl



## The full URL to your in.php script
$in_url = 'http://www.real-british-porn.co.uk/home-movies/in.php';




##########################################################################
##                        DONE EDITING THIS FILE                        ##
##########################################################################



%q = parseget();

print "Location: $in_url?id=$q{'id'}\n\n";

sub parseget
{
    my @pairs = split(/&/, $ENV{'QUERY_STRING'});
    my($name, $value, %q);
  
    for(@pairs)
    {
        ($name, $value) = split(/=/, $_);
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $q{$name} = $value;
    }

    return %q;
}