#!/usr/local/bin/perl

@arValores = ();
$vDirectorio_read = "txt_entrada.txt";
$vDirectorio_write = "c:\\Datos_dms";
$vPermisos = 0777;

open (LECTOR, "<$vDirectorio_read") or die "Entrada nanay";
	while (<LECTOR>) {
    if (/(.+?)/)	{
        $vTemp = $_;
        push @arValores, $vTemp;
    	#print "$vTemp\n";
    	}
	}
close LECTOR;

mkdir $vDirectorio_write, oct($vPermisos);

foreach $vTemp2 (@arValores){
    print "$vTemp2\n";
	mkdir "c:\\datos_dms\\$vTemp2\n" or warn "No se ha podido crear el directorio $vTemp2\n";
	}

exit 0;