box-o-sand/perl-practice/cli/argv.pl

11 lines
105 B
Perl
Raw Normal View History

2011-01-06 02:08:08 +00:00
#!/usr/bin/env perl
use strict;
use warnings;
foreach my $a (@ARGV) {
printf("$a\n");
}
1;
__END__