#!/usr/bin/perl
printf "%x\n", unpack "L", "\1\2\3\4" or die $!;