use HTTP::Request::Common;
        my $filetoopen = 'tp1.xml';  #XML file name
        my $ua = new LWP::UserAgent;
        my $res = $ua->request(GET 'http://2.2.2.2/receive.asp');

          if ($res->is_success) {
    {   
        no strict 'subs';
        $res = $ua->request(POST 'http://2.2.2.2/receive.asp', Content_Type => 'form-data', 
	Content => [
            	username => test,
	            password => test,
            	init => [$filetoopen,$filetoopen],
	         ]);
    }
    ...rest of the code...