#!/usr/bin/perl use strict; use warnings; print "Status: 200\n"; print "Content-Type: application/xml\n\n"; print "\n"; 1; __END__