#!/usr/bin/perl

@lineas = <>;  # leer todas las líneas
print @lineas; # e imprimirlas