#!/usr/bin/perl

use strict;
use warnings;

while ( my $line = <> )
{
    print $line;
}