#!/usr/bin/env perl

use strict;
use warnings;
use Fcntl qw[];

printf "%08x\n", (stat("/tmp"))[2];
printf "%08x\n", (stat("/etc/passwd"))[2];
printf "%08x\n", Fcntl::S_IFMT( (stat("/tmp"))[2] );
printf "%08x\n", Fcntl::S_IFMT( (stat("/etc/passwd"))[2] );
printf "%08x\n", Fcntl::S_IFMT();

__END__
000043ff
000081a4
00004000
00008000
0000f000