use strict; my $hw = `uname -i`; my $word64 = 1 if ( $hw =~/x86_64|ia32e/); print "word $word64\n"; use constant CRACKLIB => $word64 ? '/usr/lib64/cracklib_dict' : '/usr/lib/cracklib_dict' ;