Select Code to Download

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

>perl script.pl

...
-d100 l2
0B02:0100  0A 00                                             ..
-q