print pack "N*", unpack "V*", $buf;
[download]

There was a discussion on endian conversion with pack/unpack earlier -> node 310075.