my $agent = WWW::Mechanize->new();
my $chk_visa = "chklstCC:0"; 
$agent->tick($chk_visa);