#!/usr/bin/perl
use strict;
use warnings;
use URI::URL;
use URI::Escape; # added

my $company_name = 'Inn House Company Services';
$company_name = uri_escape($company_name); # added
my $partial_url = 'http://my.test.com?infor=info2&company_name=' . $company_name;
my $url = URI::URL->new($partial_url);
print $url, "\n";