my $enctype = 'form-data/multipart';
$ua = LWP::UserAgent->new;
$req = POST $url, Content_Type => $enctype, Content => [
	p_progra_idint =>$p_progra_idint,
	p_upload	=> [$path_file,$name_file]
	];
$res = $ua->request($req);