1e1051a39Sopenharmony_ci#! /usr/bin/env perl 2e1051a39Sopenharmony_ci 3e1051a39Sopenharmony_ciuse strict; 4e1051a39Sopenharmony_ciuse warnings; 5e1051a39Sopenharmony_ciuse Getopt::Std; 6e1051a39Sopenharmony_ci 7e1051a39Sopenharmony_ciour $opt_n = 0; 8e1051a39Sopenharmony_ci 9e1051a39Sopenharmony_cigetopts('n') or die "Invalid option: $!\n"; 10e1051a39Sopenharmony_ci 11e1051a39Sopenharmony_ciprint join(' ', @ARGV); 12e1051a39Sopenharmony_ciprint "\n" unless $opt_n; 13