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";
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";