This is a stupid mistake:
my $x = 1231; my $y = 2345; my $z = 0032;
This is not:
chmod 0600, "secret_file.txt";
Ricardo SIGNES <rjbs AT cpan DOT org>
Adapted from ValuesAndExpressions::ProhibitLeadingZeros by Jeffrey Ryan Thalhammer.
Copyright (c) 2007 Ricardo Signes and Jeffrey Ryan Thalhammer.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.