Codebase list openssl / run/4987afa4-5429-4b9b-883a-f708b4b806fb/main util / echo.pl
run/4987afa4-5429-4b9b-883a-f708b4b806fb/main

Tree @run/4987afa4-5429-4b9b-883a-f708b4b806fb/main (Download .tar.gz)

echo.pl @run/4987afa4-5429-4b9b-883a-f708b4b806fb/main — raw · history · blame 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
#! /usr/bin/env perl

use strict;
use warnings;
use Getopt::Std;

our $opt_n = 0;

getopts('n') or die "Invalid option: $!\n";

print join(' ', @ARGV);
print "\n" unless $opt_n;