rdfield++ for the comments on learning and copying. Reading this really got me thinking (and ++ for that). Why would you need to open/save/close just to have the machines run? My guess is just the timestamp of the file needs updating. I can understand the unwillingness to play with production machines but if you need to just update the file's timestamp, take a look at utime. The code will be better reflective of what needs to be done (and will probably run a bit faster).

#!/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, $_;
}
[download]

caveat - not sure how this works on platforms other than unix.

-derby