#!/usr/bin/perl -w # For Emacs: -*- mode:cperl; mode:folding -*- # # a2html - ascii to html convertor use strict; if (@ARGV != 2) { print " usage: a2html \n"; exit 1; } open SOURCE, $ARGV[0] or die 'cannot open source file'; open DESTINATION, ">$ARGV[1]" or die 'cannot open destination file'; print DESTINATION <<'EOHEAD';

EOHEAD

$/ = undef;
$_ = ;

s/&/&/g;
s/
  

EOFOOT

close DESTINATION;
close SOURCE;

exit 0;