#!/usr/bin/perl
    while (<>) {
        print "$_\n";
    }