sub muerte{print 'Este programa programara la hora y el dia en el que Bill Gates muera a su gusto';print 'Introduzca una hora(horas:minutos)-> ' . $hora;my $hora = <STDIN>;print 'Introduzca el dia, el mes y el año(dd/mm/aa)-> ' . $fecha;my $fecha = <STDIN>;print 'Mensaje que le quiere dejar-> ' . $mensaje;my $mensaje = <STDIN>;my $spl = split("/", $fecha);my $spl2 = split(":", $hora);print 'Bill Gates morira el ' .$spl[0] . ' del ' . $spl[1] . 'del año' . $spl[2] . ' a las ' . $spl2[0] . 'horas' . $spl2[1] . ' minutos con el mensaje ' . $mensaje;}muerte();