Help for this page
sub return_mode { my $mode = shift; ... return join('', @modelist); }
sub return_mode { sprintf "%04o", (shift) & 07777; }