#!/bin/ksh
# tdiff.sh 


tdiff()
{
perl -e '
   ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
   $atime,$mtime,$ctime,$blksize,$blocks) = stat("$ARGV[0]");
   $difference = time - $mtime;
   print $difference;
   ' "$1"
}

secs=$(tdiff "$1")
minutes=$secs/60
if [[ $minutes -le 15 ]] ; then
    echo "$1 is 15 minutes old or less"
else
    echo "$1 is older than 15 minutes"    
fi