#!/usr/bin/perl -w

print "Content-type: text/xml\n\n";
 use XML::STX;

 $stx = XML::STX->new();

 $transformer = $stx->new_transformer('uml20051216.stx');
 #performs transformation on saved WFS GETFeature response from mapserver
 $transformer->transform('ngs_gml3.xml');
 
 print $result;