#!/usr/bin/perl -w
use strict;
foreach(<*.shtml>) { if (-M $_ < 31) { print $_,"\n"; } }