#!/usr/bin/perl use strict; use warnings; print "Content-type: text/plain\n\n"; print qq~Dies ist ein Test ~; print qq~Das ist\n mit\n gemacht\n~;