open(OUT,">out.html") || die("Cannot Open File");
binmode(OUT, ":utf8");

##</code><code>##

open(OUT,">out.html") || die("Cannot Open File");
binmode(OUT, ":utf8");
my $service = SOAP::Lite->service('http://www.url.com/file.wsdl');
my $arguments = "my_id";
my $result = $service->search($my_arguments);
my $url = $link->{linkCodeHTML};
print OUT $url . "<br>";