Shell Programming and Scripting

#!/bin/ksh

cd /PATH/to/files
touch somefile
ls -rt *.log | tail -1 | read newfile
touch_value=$(perl -e '
	$mtime=(stat $ARGV[0])[9];
	$mtime = $mtime - (86400*15);
	($sec,$min,$hour,$mday,$mon,$year,$wday,
					 $yday,$isdst)
					   = localtime($mtime);
	 printf "%d%02d%02d%02d%02d\n", $year+1900, $month+1, $day+1, $hour, $min;
			 ' $newfile )
touch -t $touch_value touchfile
find . ! -newer touchfile -print

find . -mtime +15 -print