13 lines
178 B
Perl
13 lines
178 B
Perl
|
#! /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;
|