my ($data,$rows) = &get_sms($dbh,$userid);
    my $k;
    foreach $k(@$data){

        print<<_WML_;
         <?xml version='1.0'?>
         <!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"
         "http://www.wapforum.org/DTD/wml_1.1.xml">
         <wml>
         <card title="smsbook" id="smsbook">


                <p>

                @$k

                </p>
         </card>
        </wml>


_WML_