# Creates Readme.htm and Readme.txt files from Readme.pod

use strict;
push @INC, 'E:/aa/perl/lib';
require 'podtools.pl';


my $pod_filename = 'BW_Readme.pod';   # filename of pod input 

my $htm_filename = 'BW_Readme.htm';   # filename of htm output 
my $title = 'BW123321™ Readme';       # title for the htm window;
                                      # ™ is actually the (TM) symbol

my $txt_filename = 'BW_Readme.txt';   # filename of txt output


podtools::pod2_htm_txt(
        $pod_filename,
        $htm_filename,
        $title,
        $txt_filename,
                );