#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;
use HTTP::Cookies;
use Crypt::SSLeay;
my $cookie_jar = HTTP::Cookies->new(file => 'cookie', autosave=>1, ignore_discard => 1);

my $agent = WWW::Mechanize->new(cookie_jar => $cookie_jar, autocheck => 0);
$ENV{HTTPS_CA_DIR} = 'cert/';


	my $user = 'xxxx';
	my $pass = 'xxxx';
	
	$url = 'https://psmsadmin.vzw.com/vzw-scat-ui/Welcome.do';
	$agent->get($url);
	$agent->form_name('loginForm');
	$agent->set_fields(
	    userId => $user,
	    password => $pass
	);    
	$agent->submit();
	print $agent->{content};

	$agent->form_name('groupForm');
	$agent->submit();