#!/usr/local/bin/perl
use strict;
use warnings;

foreach my $line (<>) {
    print "$line";
}