#!/usr/bin/perl use strict; use warnings; open my $HTML, '>', 'output.html' or die $!; print $HTML <<'_END_HEADER_';

_END_HEADER_

open my $IN, '<', 'input.txt' or die $!;
print $HTML while <$IN>;


print $HTML '

'; close $HTML or die $!;