#!/usr/bin/perl

my $count = 1;
my $string = "";


while($ARGV[$count])
{
    print "ARGV[$count] = $ARGV[$count]\n";
    if($count == 1)
    {
	$string = $ARGV[$count];
    }
    else
    {
	$string = "$string $ARGV[$count]";
    }
    $count++;
}

$string = "$string\n";

open(FILE, ">>./in.$ARGV[0]");
print FILE "$string";
close(FILE);
