my $stuff = unpack('B64', $datagram);
print "This is data: $stuff\n";