#!/usr/bin/perl -w

use strict;

print "\n";

err:
print "Introduzca la velocidad (km/h): ";
chomp ( my $v = <STDIN> );
if (0+$v ne $v) { goto err; }

my $dseguridad = ($v/10)*($v/10);

my $dmojado = 2 * $dseguridad;

my $dfrenopeligro = $dseguridad / 2;
  
my $dfrenonormal = $dseguridad;

print <<EOT;

La distancia de seguridad debe ser de $dseguridad metros
  
La distancia de seguridad en calzada mojada es de $dmojado metros

La distancia de frenado de emergencia es de $dfrenopeligro
  
La distancia de frenado normal es de $dfrenonormal metros
 
EOT
  

;


exit 1;