#!C:\Perl\bin\perl.exe -w
use strict;
use warnings;
use LWP::UserAgent;

my $url = "http://bbs.wenjuantong.com";
open(OUT, ">>respone.txt") or die("Cannot open out file:$!");

my $agent = new LWP::UserAgent();
my $request = new HTTP::Request('get' => $url);
   $request ->content_type('application/x-www-form-urlencoded');
   $request ->content('type=another');
   my $response = $agent ->request($request);
print(OUT $response->as_string());
print(OUT "\n");
close(OUT) or die("Cannot close out file:$!");

##</code><code>##

sub encodeemail{
        my ($self, $email) = CGI::self_or_CGI(@_);
        my $char = '';
        while ($email =~ /([a-z\@]{1})/is){
                $char = '&#' . ord($1) . ';';
                $email =~ s/$1/$char/sg;
        }
        return $email;
}