my $ua = LWP::UserAgent->new;

print "Setting Responce" if $debug;
print "Why does it hang here for 2min" if $debug;

my $response = $ua->request(GET 'https://ourcopanyswebsite.com/xorl/script147.php');

print "retrieving content\n" if $debug;
my $returned_info = $response->content;

# do stuff to returned_info and set $useful_data from it

print $useful_data;