open(FILEM,"<E:\\$_[0]\\$poolno\\mbs.txt");
                      $var1 = <FILEM>;
                       open(FILE,"mbs1.html");
           $tree = HTML::TreeBuilder::XPath->new;
           $tree->parse_content( <FILE> );
           @heading = $tree->look_down( id => "mbs" );
           foreach $head( @heading )
                {
                   my @element = $head->find_by_tag_name("option");
                     foreach $var(@element)
                     {
                       my $value=$var->attr('value');
                        my $value1=$var->attr('length');
                         my $value2=$var->attr('begin');
                        $extract = substr $var1,$value2,$value1 ;
                        print "$extract\n";