my $str = "\xDE\xAD\xBE\xEF";
my $num = unpack 'N', $str;
print sprintf "%08x (%i)", $num, $num;