openssl/util/echo.pl

e1051a39Sopenharmony_ci#! /usr/bin/env perl
e1051a39Sopenharmony_ci
e1051a39Sopenharmony_ciuse strict;
e1051a39Sopenharmony_ciuse warnings;
e1051a39Sopenharmony_ciuse Getopt::Std;
e1051a39Sopenharmony_ci
e1051a39Sopenharmony_ciour $opt_n = 0;
e1051a39Sopenharmony_ci
e1051a39Sopenharmony_cigetopts('n') or die "Invalid option: $!\n";
e1051a39Sopenharmony_ci
e1051a39Sopenharmony_ciprint join(' ', @ARGV);
e1051a39Sopenharmony_ciprint "\n" unless $opt_n;