use warnings;
use strict;

my $clock = pack('H34','FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF05');
print "clock:$clock:\n";
for (split //, $clock) {
    print "$_:", ord $_, ":\n";
}