Shell Programming and Scripting

#!/usr/bin/perl -w
use Time::Local ;
$bsec=04;
$bmin=41;
$bhours=01;
$bday=14;
$bmonth=7;
$year=109;
$esec=33;
$emin=9;
$ehours=14;
$eday=17;
$emonth=8;
#
$Beg_time = (timelocal($bsec,$bmin,$bhours,$bday,$bmonth,$year) * 1000);
print "Epoch Beg Value: $Beg_time\n";
$End_time = (timelocal($esec,$emin,$ehours,$eday,$emonth,$year) * 1000);
print "Epoch End Value: $End_time\n";

echo "use db1" > query
#echo "select count(*) from file_info where beg_time>=1250194264000 and end_time<=1253176773000;" >> query
#echo "exit" >> query
./mysql --skip-column-names --socket=/tmp/mysql.sock < query >> info_id

bval=$(perl perlscript.pl | awk -F": " '/Epoch Beg Value/{print $2}')
eval=$(perl perlscript.pl | awk -F": " '/Epoch End Value/{print $2}')


beg_time>=$bval and end_time<=$eval