in reply to chmod in perl

use strict; use warnings;