http://qs321.pair.com?node_id=487980


in reply to Re: Do you ever forget to use the strictures?
in thread Do you ever forget to use the strictures?

My own boilerplate template is similar:
#!/usr/bin/env perl # $Header$ use strict; use vars qw( $VERSION ); $VERSION = sprintf('%d.%02d', q$Revision: 1.0 $ =~ /(\d+)\.(\d+)/); 1; __END__

 

perl -le "print unpack'N', pack'B32', '00000000000000000000001000000000'"