use strict; use warnings; print "\n---------------Vehiculos---------------\n\n"; print "Ingrese la velocidad del Primer Vehiculo: "; my $v1 = <STDIN>; print "\nIngrese la velocidad del Segundo Vehiculo: "; my $v2 = <STDIN>; print "\nInrese la distancia de los vehiculos: "; my $d = <STDIN>; for my $minutos ($d) { my $resultado = 60 * $d / $v2 - $v1; print "\nEl tiempo de alcance es de: "; print "$resultado minutos" } print "\n"; exit;