#!/usr/bin/perl
print <<"APPDATA";
Content-type: application/dat
#...