Help for this page
binmode TARGET_FILE; my $outputstring = pack("n*", @list); print TARGET_FILE $outputstring;
binmode TARGET_FILE; my $outputstring = pack("v*", @list); print TARGET_FILE $outputstring;