#!/usr/bin/perl

# Lee un nombre e imprime saludo
print "Por favor, escribe tu nombre: ";
$nombre = <STDIN>;
chop($nombre);
print "¡Hola $nombre!\n";