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