open TARGET_FILE, '>', 'foo' or die;
binmode TARGET_FILE;
my @list = 10;
my $outputstring = pack("v*", @list);
print TARGET_FILE $outputstring;

##</code><code>##

>perl script.pl

>debug script.out
-rcx
CX 0002
:
-d100 l2
0B02:0100  0A 00                                             ..
-q