@ARGV = glob "SMSCDR*$date$hour$minute*.log";
my $SMPP_count;
my $stamp = "$hour:$min:$sec";
while(<>){
    chomp;
    my @ary = (split '|')[0,9,12];
    $SMPP_count++ 
        if  $ary[0] eq $stamp
        and $ary[1] eq "Submit"
        and $ary[2] =~ /(GSM|SMPP)/;
};
print $SMPP_count;