#!/bin/perl
# File: joiner

# Join together the command line arguments, separated by double dashes (--).
# Put the result into a file called "cmdcode".

$all = join('--', @ARGV);
open(CODE, ">cmdcode") || die " Can't open cmdcode: $!\n";
print CODE $all,"\n";
close(CODE);
