Sprint has changed their site around a bit and that code will no longer work. Here is an updated version:

#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);

&send_message ('1234567890', 'this is the message', 'metlhed');

sub send_message {
    my ($phone_num, $message, $call_back) = @_;
    my ($ua, $req, $content);

    $ua = LWP::UserAgent->new ();
    $req = POST 'http://www.messaging.sprintpcs.com/smswmgr/BMG/sendme
+ssage.jsp',
                [
                  device           => 'phone',
                  phoneMin         => $phone_num,
                  msg              => $message,
                  callBackMin      => $call_back,
                  copyEsclateRadio => 'NO VALUE',
                ];
    $content = $ua->request ($req)->as_string;
}
[download]