use Socket;
my $out = `echo BAABAAXwAACkAAAAAAABLAAAAAAAAAAArBQEKA==|base64 -d`;

print (unpack "H*", $out);
print "\n";
print substr ((unpack "H*", $out), -8);
print "\n";
print inet_ntoa(substr $out, -4);