#!/usr/local/bin/perl

$name = $ARGV[0];
open(OUT, ">$name");
print OUT "$ARGV[1]\n";
print OUT "$ARGV[2]\n";
print OUT "$ARGV[3]\n";
print OUT "$ARGV[4]\n";
print OUT "$ARGV[5]\n";
print OUT "$ARGV[6]\n";
print OUT "$ARGV[7]\n";
print OUT "$ARGV[8]\n";
print OUT "$ARGV[9]\n";
close(OUT);