Select Code to Download

   my $SMPP_count = int ((split (/\s+/,`cut -d "|" -f 1,10,13 SMSCDR*$
+date$hour$minute*.log |grep "Submit|GSM" |grep "$hour:$min:$sec" |sor
+t |uniq -c`)) [1]) + int ((split (/\s+/,`cut -d "|" -f 1,10,13 SMSCDR
+*$date$hour$minute*.log |grep "Submit|SMPP" |grep "$hour:$min:$sec" |
+sort |uniq -c`)) [1]);

@ARGV = glob "SMSCDR*$date$hour$minute*.log";
my $SMPP_count;
...
        and $ary[2] =~ /(GSM|SMPP)/;
};
print $SMPP_count;