if($response->code == 200) {
print $response->as_string;



}

##</code><code>##

if($response->code == 200) {
    my $last="";
$last = $response->as_string;
my $ua = LWP::UserAgent->new;
my $action = 'http://www.booksforeducation.com/testbed/fred.php';
my $form = {xml => $last};
my $response = $ua->post($action, $form);


}