#!/usr/bin/perl -w

# No Modify Area Start    
    print "Content-type: text/html\n\n";
    use strict;
    use LWP;
 
    my $agent = LWP::UserAgent->new;
    my $home = q|http://linkmost.com/showlinkadv.php|;
    my $user = 44702;
    my $query = $ENV{'SCRIPT_NAME'}.$ENV{'PATH_INFO'};
    my $esc = sub { $$_ =~ s/([^A-Za-z0-9-_.])/sprintf("%%%-0.2X", ord($1))/ge for @_ };
    
    defined($ENV{'QUERY_STRING'}) && ($query .= qq|?$ENV{'QUERY_STRING'}|);
    $esc->(\$user, \$query);
    $| = 1;
    
    my $url = qq|$home?userid=$user&host=$ENV{'HTTP_HOST'}&requri=$query&client=2.0|;
    my $request = HTTP::Request->new(GET => $url);
    my $response = $agent->request($request);
    
    $response->is_error ? die $response->status_line : print $response->content;
        
exit(0);

# No Modify Area End