如何在Perl中将int打包为32位big endian?

考虑这个片段:

use strict;
use warnings;

my $data = "1";
my $packed = pack("I",$data);
open(my $file,">","test.bin") || die "error $!\n";
binmode $file;
print $file $packed;

问题是,试图从另一种语言来读,这似乎是小端语。有没有模板参数允许我把它写成big-endian?我不想在读书时做额外的工作。