#!/usr/bin/perl

use strict;
use File::Copy;

print STDOUT "Content-type: text/plain\n\n";

copy('yourfile.txt', \*STDOUT);