#!/usr/bin/perl -w use strict; $|++; sub set_status { my ($status) = @_; print '"'; } print qq{Content-Type: text/html\n