use strict; use warnings; print "\n Vehículos \n"; print "\n Ingrese el valor de velocidad del primer vehículo \n"; my $vel_1 = <STDIN>; print "\n Ingrese el valor de velocidad del segundo vehículo \n"; my $vel_2 = <STDIN>; print "\n Ingrese la distancia entre los vehículos \n"; #Kilometros my $dis = <STDIN>; for my $minutos($dis){ my $resultado = 60 * $dis / $vel_2 - $vel_1; print "\nEl tiempo de alcance es de: "; print "$resultado minutos"; } print "\n"; exit