如何把一个整数按big endian 16进制的方式写入一个文件中？

各位，我不会perl，请教一个pack的问题。
想把一个两个文件的长度以big endian写入一个二进制文件中，请问应该怎么写，请看我下面的程序的错误。

my $size1 = (stat($file1))[7];
my $size2 = (stat($file2))[7];

$size = pack('LL', $size1, $size2);

open(FH, ">$newfile")；
binmode(FH);

print FH $size;

close(FH);

我运行时，$size1=15186644(0x00e76ad4)，$size2=5832808(0x00590068)，我希望二进制文件的内容是00 67 6a d4 00 59 00 68，可是实际结果是68 00 59 00 d4 6a  00，完全倒过来了，怎么办？

'NN'

yeah
network order