#!/usr/local/bin/perl #-*- perl -*- # # Copyright (C) 2001 Ken'ichi Fukamachi # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # # $FML: text2html.pl,v 1.2 2001/08/19 16:11:28 fukachan Exp $ # use strict; use Carp; &HEADER; print "
\n";
while (<>) { print $_;}
print "
\n"; &FOOTER; 1; sub HEADER { print <<"_EOF"; $ARGV[0] _EOF } sub FOOTER { print <<'_EOF'; _EOF } 1;