Select Code to Download

------------------------------------------------
User Errors | Netowrk Errors | System Error    |
------------------------------------------------

------------------------------------------------
User|  |  | Netowrk |  |   | System |   |    |
------------------------------------------------

 #!/usr/bin/perl
use strict;
use warnings;
...
parser_excel("Select * from $table where Date = $date and Hour = $hour
+",2,1,0,0);
parser_excel("Select * from $sub_table where Date = $date and Hour = $
+hour",3,2,0,1);
parser_excel("Select * from $del_table where Date = $date and Hour = $
+hour",4,2,0,1);