use Fcntl;
my @constants = grep { /^S_I/ && eval { Fcntl->$_ } } keys %Fcntl::;
my %values    = map { $_ => Fcntl->$_ } @constants;
for (sort { $values{$a} <=> $values {$b} } keys %values) {
    printf "%-8s = %07o\n", $_, $values{$_};
}