Select Code to Download

#!/usr/local/bin/perl -w

...
# by Vladimir Bogdanov (email: user=b_vlad server=telus.net, Perl Monk
+ ID: c0d34w4y)
#-----------------------------------------------------------------

print join(" ", map { sprintf "%#02x", $_ }unpack("C*",pack("L",0x1234
+5678)))