Shell Programming and Scripting

#!/bin/ksh


date '+%Y %m %d %H %M %S' | read in_Y in_m in_d in_H in_M in_S                                   # Get current time values 
((in_m=$in_m-1))                                                                                 # Reduce month by one as epoch counts from 1/1/1970 as month zero

perl -e "use Time::Local; print timelocal($in_S,$in_M,$in_H,$in_d,$in_m,$in_Y), ;" | read cur_S  # Get current time in seconds since epoch
((old_S=$cur_S-300))                                                                             # Go back five minutes (in seconds)

perl -e 'use POSIX qw(strftime);\
print scalar(strftime "%Y %m %d %H %M %S", localtime $ARGV[0]), "\n";' $old_S | read Y m d H M S # Display answer in required format to be read in

touch -mt ${Y}${m}${d}${H}${M}.${S} /tmp/ref_file                                                # Create reference file

find . -type f -newer /tmp/ref_file                                                              # Find required files