Hi man !!
I'm not clear of wat u want to know.. First be clear with your requirement.
Learn more on LWP before proceeding with your code...

The below code will extract the source code of the url passed.....

use strict;
use LWP::UserAgent;
use Data::Dumper;

my $url="http://10.x.x.x/login.pl";

my $ua = new LWP::UserAgent;
my $request = new HTTP::Request POST => $url;
$request->content_type('text/xml');

my $page = $ua->request($request);

if ($page->is_success) {
    print $page->content;
} else {
    print $page->error_as_HTML;
}
[download]

You can change $url as per ur requirement...

I think your code is not tested... Make sure you give the correct domain name ( server ).

Thank u