Как я могу упаковать интервал как обратный порядок байтов на 32 бита в Perl?

Рассмотрите этот отрывок:

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;

Вещь, пытаясь считать его из другого языка, это, кажется, прямой порядок байтов. Есть ли какой-либо аргумент шаблона, который позволяет мне писать это как обратный порядок байтов? Я хотел бы постараться не делать дополнительную работу при чтении.