use Leading::Zeros -warning;

my $tries = 0;              # Okay, not an octal constant
my $ID_number = 000013;     # Okay, but tell me about it, just in case

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