#!/usr/bin/perl use strict; use warnings; use File::Slurp; use HTML::Entities; my $INFname = shift or die "Missing input file name!"; my $text = read_file($INFname); $text = encode_entities($text); open my $OUTF, '>', $INFname . ".html", or die "Can't open $INFname.html: $!\n"; print $OUTF "$text\n";