Select Code to Download

<?xml version="1.0" encoding="utf-8" ?>

...
        </form>
    </body>
</html>

#!/usr/bin/perl

...

print "Query string=$ENV{'QUERY_STRING'}";