use Leading::Zeros;

my $tries = 0;              # Okay, not an octal constant
my $ID_number = 000013;     # Okay, silently treat it as a decimal constant

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