use LWP::UserAgent;
use HTTP::Request::Common qw(POST);

sub message_PCS{

        my $msg = $_[0];

        $ua = LWP::UserAgent->new();
        my $req = POST 'http://www.messaging.sprintpcs.com/sms/check_message_syntax.html',
               [ mobilenum => '**********', message => $message , callbacknum => '**********', ack_add =>'redalert\@somehwere.com']
        $content = $ua->request($req)->as_string;



}