my $seconds_since_the_epoch = pack 'N', time;
my $employee_id             = pack 'N', 123456789;
my $check_byte              = $seconds_since_the_epoch ^ $employee_id;