#!/usr/bin/perl
print $_, $/ for @ARGV;