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;
$credit = floor($credit + 0.5);

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