Here is the Perl for paging:  I hope this helps.

#

use Socket;

if ( $#ARGV != 2 ) {

 printf "Usage: sendpage.pl <from-cdsid> <to-cdsid> \"message\"\n";

 exit(1);

}

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime();

$timestamp=sprintf "%02d/%02d/%02d %2d:%2d",$mon+1,$mday,$year-100,$hour,$min;

$ret=page_send($ARGV[0],$ARGV[1],"$ARGV[2]. $timestamp");

exit $ret;

sub page_send{

   my($remote,$port,$iaddr,$paddr,$buf,$error);

   my $error=0;

  ...

I used the sp_start_job in the stored procedure with success.  Thanks for helping automate my monitoring.