#!/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 $!; while (my $line = <$IN>) { # You probably want to do more work here. print $HTML $line; } print $HTML ''; close $HTML or die $!;