#!/usr/local/bin/perl -w

    our $log = "/log/sms_emails";
    open (CLOG, ">>$log") || die "Could not open-1 $log File\n";

    our $ErrCode = "@ARGV";
    if ( $ErrCode eq "" )
    { print "format is: pyrsms.cgi message-text\n";exit(1); }

    $rno = time; $usermailmsg = "/tmp/SMS_msg_$rno";
    $filout = "$usermailmsg";
    open (f_out, ">$filout") || die "Could not open-3a $filout\n";

    $PFemail = "9083972845\@messaging.sprintpcs.com";
    $ltm = localtime;
    print f_out "Subject: Error Code: $ErrCode\n\n\n";
    close f_out;
    print CLOG "$ltm\t$PFemail\t$ErrCode\t$usermailmsg\n";
    system("/usr/sbin/sendmail $PFemail < $usermailmsg");
    sleep 1;
    system("/usr/sbin/sendmail -v -q  1>>/dev/null 2>>/dev/null");