# index.xml (a CGI script in disguise) use strict; use CGI qw(:standard); use DBIx::XML_RDB; my $xmlout = new DBIx::XML_RDB(qw(database:host driver user passwd)) || die "Failed to make new xmlout"; $xmlout->DoSql(" select artist, title, album, year from mp3.songs order by artist,year "); my $out = $xmlout->GetData; my $xsl = qq||; $out =~ s/^(<\?.*\?>)/$1\n$xsl/; print header(-type=>'text/xml'); print $out; ########################################################### # songs.xsl

Artist	Title	Album	Year