for my $file ( @ARGV ) {
        my $mode = ( stat $file )[ 2 ];
        my $ls = `/bin/ls -l $file`;

        $ls =~ s/^(.)([rwxsStT-]+)(?=\s)/[$1] @{[ sprintf '%04o ', $mode & 07777 ]}/;
        print $ls;
        }