util/echo.pl

   1 #! /usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use Getopt::Std;
   6
   7 our $opt_n = 0;
   8
   9 getopts('n') or die "Invalid option: $!\n";
  10
  11 print join(' ', @ARGV);
  12 print "\n" unless $opt_n;