Select Code to Download

+---------+--------------------+-------------+
| artist  |      title         |    album    |
...
| Genesis | Firth of Fifth     | Seconds Out |
| Genesis | I Know What I Like | Seconds Out |
+---------+--------------------+-------------+

SELECT * FROM SONGS
WHERE ARTIST='Genesis'

<?xml version="1.0"?>
<DBI driver="database:host">
...
        </ROW>
    </RESULTSET>
</DBI>

use strict;
use DBIx::XML_RDB;
...
$xmlout->DoSql("SELECT * FROM SONGS WHERE ARTIST='Genesis'");

print $xmlout->GetData();

# XML::Simple
my $config = XMLin($xmlout->GetData);
...
# XML::Twig
my $t = new XML::Twig();
$t->parse($xmlout->GetData);

my $out = $xmlout->GetData;
my $css = qq|<?xml-stylesheet type="text/css" href="songs.css"?>|;
...
<?xml version="1.0"?>
<?xml-stylesheet type="text/css" href="songs.css"?>
<DBI driver="database:host">

Alias /xml/ "/usr/local/apache/xml/"
<Directory "/usr/local/apache/xml">
...
        Order allow,deny
        Allow from all
</Directory>

# index.xml (a CGI script in disguise)
use strict;
...
        </html>
    </xsl:template>
</xsl:stylesheet>