use strict; use warnings; print "\n Velocidad del primer vehículo \n"; my $vel_1 = <STDIN>; print "\n Velocidad del segundo vehículo \n"; my $vel_2 = <STDIN>; print "\n Distancia entre los vehículos \n"; #Kilometros my $dis = <STDIN>; for my $minutos($dis){ my $resultado = 60 * $dis / $vel_2 - $vel_1; print "\nTiempo de alcance: "; print "$resultado minutos"; } print "\n"; exit