$Text::Wrap::columns = 60;
my $text = wrap('', '', $smstext);
print $text,"\n";