use GSM::SMS::PDU;

  my $pdu = GSM::SMS::PDU->new('07916407080007F8240F9164170900013635F40000702101310024400141');
    
  
  my $encoded = $pdu->SMSSubmit( 
                         $servicecenteraddress, 
                         $phonenumber, 
                         $payload, $datacodingscheme, 
                         $validityperiod, 
                         $userdataincluded );
 my ($da, $pdu2, $ds, $udh, $payload) = $pdu->SMSSubmit_decode( $encoded);

print "$pdu";