#!/usr/bin/perl

open(M,"/etc/motd");
print "Content-type: text/plain\n\n";
print while(<M>);