open(WP, "$file.wp") || die "Can't open $file.wp: $!\n";
binmode WP;
while (read(WP, $buf, 1024)) {...}
