my $find_link=$mech->find_link(text =>$mbs_text);
my $temp=@{$find_link};
#print %{$mech->response()};
if($find_link) {
    print " found\n\n";
    $mech->click($mbs_text);
    print $mech-> content(format=>'text');
}
else {
              print " not found...\n\n\n";
     
}
my @main_all_link= $mech->find_all_link();
print @main_all_link,"\n";