package Op;
use strict;
use warnings;
use LWP::UserAgent;
use URI;
my $ua = LWP::UserAgent->new();
my $uri2 = URI->new('https://testchandan.com:5001/dev');
 my $response1 = $ua->get($uri2);
my $responsecode = $response1->code() 
print $response1->headers_as_string if $response1->is_success;