my $out = $xmlout->GetData;
my $css = qq|<?xml-stylesheet type="text/css" href="songs.css"?>|;
$out =~ s/(<\?.*\?>)/$1\n$css/;

# now the first three lines of $out are:
<?xml version="1.0"?>
<?xml-stylesheet type="text/css" href="songs.css"?>
<DBI driver="database:host">