Select Code to Download

  my $paths = join "\0", @_;
  $paths .= "\0\0";

  my $paths = join "\0", @_, "\0";

johngg@aleatico:~$ perl -Mstrict -Mwarnings -E '
my @p = qw{ a b c };
...
print $p;' | hexdump -C
00000000  61 00 62 00 63 00 00                              |a.b.c..|
00000007