use Device::Gsm::Sms;
# Or you can instance a sms message from raw PDU data
    my $msg = new Device::Gsm::Sms(
        header => '+CMGL: 4',
        pdu    => '[07916407080007F8240F9164170900013635F40000702101310024400141]',
        storage=> 'ME', # or 'SC'
    );


if( defined $msg ) {
        print $msg->recipient() , "\n";
        print $msg->sender()    , "\n";
        print $msg->text()   , "\n";  # or $msg->text()
        print $msg->time()      , "\n";
        print $msg->type()      , "\n";
    }