#!/usr/bin/perl
while ($_ = <ARGV>) {
    print $_;
}
