Shell Programming and Scripting

#!/usr/bin/perl
use Time::Local ;
$sec=00;
$min=01;
$hours=00;
$day=14;
$month=7;
$year=109;
#
$Beg_time = (timelocal($sec,$min,$hours,$day,$month,$year) * 1000);
print "Epoch Beg Value: $Beg_time\n";

my $somefile = "/tmp/whatever" ;

sub store  { 
  my $what = shift ; 
  open my $file , ">$somefile" or die "$!" ; 
  print $file "$what"  ;
  close $file;
}

sub read_it { 
  open my $file , "<$somefile" or die "$!" ; 
  my $result = <$file> ; 
  close $file ;
  return $result ;  
}

if  ( -f  $somefile ) { 
   my $result = read_it();
   $result += 24 * 3600 ; # increment 1 day , date should be in epoch format 
   store($result);
   # do whatever you want with new result
} else {
  # original code  
  # 
  store($starting_date);
}

#!/usr/bin/perl -w
use Time::Local ;
$sec=00;
$min=01;
$hours=00;
$day=14;
$month=7;
$year=109;
#
$Beg_time = (timelocal($sec,$min,$hours,$day,$month,$year) * 1000);
$i=0;
while (++$i<10) {
$val=$Beg_time*86400000;
printf "Epoch Beg Value %d:%f\n",$i,$val;
}