The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
no Leading::Zeros;

my $tries = 0;              # Okay, not an octal constant
my $ID_number = 000013;     # Bad octal! No execution!

print "[Attempt $tries] ID: $ID_number\n";