perl -ne 'print if s!#\s*define\s+(\S+)\s+([^(?:\s*/\*.*\*/)])$!use constant $1 => $2;!g' /usr/include/linux/elf.h >> Constants.pm