my $blob = "BAABAAXwAACGAAAAAAABLAAAAAAAAAAArBQEKA==";

my (
    $dataLength,    # 2 bytes
    $type,          # 2 bytes
    $version,       # 1 byte
    $rank,          # 1 byte
    $flags,         # 2 bytes 
    $serial,        # 4 bytes 
    $ttl,           # 4 bytes 
    $reserved,      # 4 bytes 
    $timestamp,     # 4 bytes
    $data ) = unpack( 'S S C C S L N L L a*', $blob );

print $dataLength, "\n";
print "$type\n";
print "$version\n";
print "$rank\n";
print "$flags\n";
print "$serial\n";
print "$ttl\n";
print "$reserved\n";
print "$timestamp\n";
print "$data\n";

$ perl /tmp/kkk.pl

16706
16961
65
65
30552
1195589953
1094795585
1111572801
1094795596
AAAAAAAArBQEKA==