The 1 value within the eval statement is unnecessary given that all modules must return a true value upon loading - This is most commonly achieved through the addition of a single statement such as:

#   Code here


1;


__END__
[download]

 

perl -le 'print+unpack("N",pack("B32","00000000000000000000001000011101"))'