Select Code to Download

use strict;
use warnings;
...
use DBI;
use Crypt::Eksblowfish::Bcrypt qw(bcrypt_hash);
use Math::BaseCalc;

sub ReadDaycode {

...
my $Fails = $B10->to_base(substr($DC,13,2));
return ($BoardTotal,$AvgSample,$Level,$Exp,$Fails);
}