#!/usr/bin/perl

# Reading from many files

while(<>)
{

  print $_; # or just print;

}