#print"content-type: text/html\n\n";

 #require LWP::simple;

 require HTML::TreeBuilder;

 require HTML::FormatText;


#$URL = get("http://www.scriptsocket.com");

$Format = HTML::FormatText->new;

$TreeBuilder = HTML::TreeBuilder->new;

open(FILE,"IR.htm");

#$data =<FILE>;

while(<FILE>){

      chomp $_;

      $TreeBuilder->parse($_);

      $Parsed = $Format->format($TreeBuilder);

      #print "$Parsed"; 
      push(@word,$Parsed);

      
}

foreach(@word){
print $_,"\n";
}



close FILE;
#exit;