use WWW::Mechanize;
use LWP::UserAgent;
use LWP::Authen::Ntlm;
use Storable;
use DBI;
use FileMoveDMS2DStage_Parm;
use LWP::Debug qw(+);
my $URL_Parm_DMS="https://sharepoint.com";

&Parm_file::InitEnv();#parameter file for credentials#
$mech = WWW::Mechanize->new(autocheck=>1,keep_alive=>1);
$mech->agent_alias( 'Windows IE 6' );
$mech->credentials("sharepoint.com:443",'',$ENV{'UserId_Parm_DMS'}, $ENV{'Password_Parm_DMS'});
$mech->get($URL_Parm_DMS);
my $html = $mech->content;
@names = qw(file1);
# COUNTS EACH ELEMENT OF THE ARRAY
$n = 0;
$mech->get($urlFile);
$mech->save_content($filename);