Select Code to Download

use Time::HiRes qw(time);

...

$id_number =~ s/\.//;
$id_number =~ s/(.{12}).*/$1/;

my $id_length   = 12;
my $id_char_set = 16;
...
    return $x;
}