sub return_mode { my $mode = shift; my @modelist = (($mode & 7000)>>9, ($mode & 0700)>>6, ($mode & 0070)>>3, ($mode &0007)); return join('', @modelist); }