#!perl -w
use strict;

# loop through the file
while (<>) {
    print
};