djantzen,
I am pretty sure you can reduce all your use constant lines to just:

use Fcntl ':mode';
[download]

See perldoc -f stat for more information as it exports both constants and functions.

So it sounds like the issue is to prevent Oracle from dropping the leading zeros. Is there any reason this must be a NUMBER column?

Cheers - L~R