for (glob '*.{log,txt}') {
    -M > $expiration and system '/usr/bin/gzip', $_;
}