#!/usr/local/bin/perl
# script: newframe.pl

print <<END;
Window-target: ScriptOut
Content-type: text/plain

Good morning everyone!
END