printing input from argv

This commit is contained in:
Dan Buch 2011-01-06 21:50:49 -05:00
parent 611c9f4355
commit 1a904efe69

View File

@ -0,0 +1,11 @@
#!/usr/bin/env perl
use strict;
use warnings;
foreach my $inline (@ARGV) {
print $inline . "\n";
}
1;
__END__