@failid=<*.wml>;
#print $failid[0];
for(@failid){
  open SISSE, "<".$_;
  open VALJA, ">".$_.".html";
  print VALJA "<html><body><pre>\n";
  while($rida=<SISSE>){
    $rida=~s/</&lt;/g;
    $rida=~s/>/&gt;/g;
    print VALJA $rida;
  }
  print VALJA "</pre></body></html>\n";
  close (SISSE);
  close (VALJA);
}