#!/usr/bin/perl -w use strict; print "Content-type: text/html\n\n"; open HEAD, 'file.txt' or die "Could not open file.txt: $!"; print while ; close HEAD;