#!/usr/bin/perl -w

opendir Z, ".";
@in = readdir Z;
closedir Z;

foreach $x ( @in ){
  if( $x =~ /\.wpd$/ ){
    $out = `/usr/src/libwpd-0.7.2/src/conv/text/wpd2text "$x"`;

    $y = $x;
    $y =~ s/\.wpd$/.txt/;

    open F, ">/tmp/mytmp";
    print F $out;
    close F;

    $out = `cat /tmp/mytmp | /usr/bin/step`;

    open F, ">z/$y";
    #open F, ">$y";
    print F $out;
    close F;
    print '"'.$y.'"'."\n";
  }
}