#!/usr/bin/perl

while(<STDIN>) # Lee y deja en $_
  {
    print;     # Imprime $_
  }