#!/usr/local/bin/perl
$OUTPUT = $ARGV[0];
shift(@ARGV);

@INPUT = @ARGV;

@new_output = sort @INPUT;

if(-e $OUTPUT) {
	open(W,">>$OUTPUT") or die "Cannot open $OUTPUT";
} else {
	open(W,">$OUTPUT") or die "Cannot open $OUTPUT";
}

foreach (@new_output) {
  print W "$_ ";
}
print W "\n";
close(W);