##


#! C:/Perl64/bin/perl.exe

use strict;
use warnings;
use WWW::Mechanize::Firefox;

   my $mech = WWW::Mechanize::Firefox->new();
   my $url = 'login_path';
   my $url_2 = 'search_tab_path';

sub print_status()
{
   my $status =$mech->status();
   print "status = $status\n";
}

   $mech->get($url,
              activate  => 1,
              autoclose => 0,
              js_JSON   => 'native');
   print_status();

	my $username = 'aaa'; 
	my $password = 'bbb';

	$mech->form_name('logonForm') ;
	$mech->field ('username' => $username);
	$mech->field ('password' => $password);
	#print_status();
	$mech->click({ xpath => '//*[@value="Login"]' });
	#print_status();
	$mech->get($url_2);
	$mech->form_name("reportLogCatalogForm");
	$mech->field('searchV','vkknava');
	$mech->click({ xpath => '//*[@id="searchButton"]' });
	#$mech->click({ xpath => '//input[@onclick]',synchonize => 0 }, 1);
	 my $l = $mech->xpath('//input[@onclick]', single => 1);
      $mech->synchronize('DOMFrameContentLoaded', sub {
          $l->__click()
      });
$mech->click({ xpath => '//*[@id="downloadButton"]',synchonize => 0 });


	Complete	def	123abc	Feb 14, 2016 1:31 PM