map {$modem->atsend($_) and select undef,undef,undef,0.1 }
   split //, "AT+CGMS=$recipient\cm$msg\cz";