Cross Reference: /src/crypto/external/bsd/openssl/dist/util/echo.pl

      1 #! /usr/bin/env 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;
     13