$a = "\001"; #just another hex string
$a = ("\000" x (4-length($a))).$a; #Zero pad that string
print unpack 'L', $a; #Hey, that's one!