Shell Programming and Scripting

#!/bin/ksh
sec()
{
        perl -e '
                use POSIX qw(strftime);
                $fmt = "%s";  # %s = seconds in epoch
                $mday = substr("$ARGV[0]", 6, 2);
                $mon =  substr("$ARGV[0]", 4 ,2);
                $year = substr("$ARGV[0]", 0 ,4);
                $hour = 0;
                $min =  0;
                $sec = 0 ;
                $secs= strftime($fmt, $sec, $min, $hour, $mday , $mon - 1, $year - 1900, -1, -1, -1);
                print int $secs;
                ' "$1"
}

today=$( date "+%Y%m%d" )
today=$( sec $today )

for file in *.csv
do
   filedate=$( echo $file | awk -F'%' '{print $2}')
   if [[ -z $filedate ]] ; then
        continue
   fi     
   olddat=$(sec $filedate)
   ddiff=$(( $today - $oldat ))
   echo "$today minus $oldat = $ddiff which is \c"
   if [[ $ddiff -lt 5184000 ]] ; then
      echo "less than 60 days"
   else
      echo "greater than equal to 60 days"
   fi
done