sub XML
        {
        use DBIx::XML_RDB;
        my $xmlout = DBIx::XML_RDB->new("Northwind",
        "ODBC", "sa", "sa", "") || die "Failed to make new xmlout";
        
        my $file_xml = "a xml file name.xml"; 
        
        $sqlstatement= "select * from a table";

        $xmlout->DoSql($sqlstatement);
        
        print $xmlout->GetData;
        
        
        }