#!/usr/local/bin/perl -w

use IO::Dir;
use strict;

use vars qw( %dir $now );

$now = time;

tie %dir, "IO::Dir", ".";
foreach (keys %dir) {
     next unless /min$/;
    utime $now, $now, $_;
}