#! /usr/bin/perl

use strict;
use warnings;

use WWW::Mechanize;
my $mech = WWW::Mechanize->new();

my $url = "https://xyz.com/svi/app?login=true";
$mech->get($url);
$mech->success or die "Can't fetch the Requested page";

print $mech->ct();
print $mech->content();