#!/usr/local/bin/perl -w
use strict;
use diagnostics;
$|++;

for my $line (@ARGV)
{
    print $line;
}