sh: line 1: ,: command not found

[bh_perl]

hi..

After i execute my program "./sendsms", its complaint "sh: line 1: , : command not found". Why but the program look running ?

My code my belo:-

#!/usr/bin/perl -w

use warnings;
use strict;
use POSIX qw(floor);

my $data;

while (1) {
    if (-e "/cygdrive/c/Inetpub/ftproot/sms.txt") {
        system("/cygdrive/c/CLISMS.exe /port=1 /ussd=*122#");
        my $credit = qx(cat /cygdrive/c/Log.txt |grep \"Baki\" |tail -
+1 |cut -d, -f1);
        $credit =~ s/Baki: //g;
        my $val = $credit;
        $credit = floor($credit + 0.5);

        if ($credit < 10) {
        system("/cygdrive/c/CLISMS.exe /port=1 /to=0133034931 /msg=[SM
+S Gateway] URGENT!! Current prepaid credit is RM$val, Please reload")
+;
        #system("/cygdrive/c/CLISMS.exe /port=1 /to=0193301010 /msg=[S
+MS Gateway] URGENT!! Current prepaid credit is RM$val, Please reload"
+);
        }

        open (TEXT, "/cygdrive/c/Inetpub/ftproot/sms.txt");
        while ($data = <TEXT>) {
            chomp($data);
            my ($num,$msg) = split(/;/, $data);
            system("/cygdrive/c/CLISMS.exe /port=1 /to=$num /msg=RM0, 
+Your e-statement password is $msg");
            sleep 60 if $. % 10 == 0;
        }
        close (TEXT);
        system ("rm /cygdrive/c/Inetpub/ftproot/sms.txt");
    }
    sleep 5;
}