#!/usr/bin/perl

die "Use: show archivo\n" unless $#ARGV==0;
open(IN,$ARGV[0]) || die "No se puede abrir el archivo\n";
while(<IN>)
  {
	print;  # imprime $_
  }
close(IN);