void opcion4()
{
    float perimetro;
    tNombre nombre;
    tContorno contorno;
    leer_cadena (nombre, "el nombre del fichero");
    leer_contorno_fichero(&contorno, nombre);
    perimetro=calcular_perimetro(contorno);
    printf("el perimetro es: %f\n"perimetro);