#!/usr/bin/perl
$newline=1;

while ($_ = $ARGV[0]) {
  shift(@ARGV);
  if (/^-n$/) {
    $newline=0;
  } else {
    print $_;
  }
}
print "\n" if $newline;
exit(0);