my @info = stat $tapes; print 'this file hasn't been modified in a while' if -M _ > 7;