rm PER/*

awk -F"^" ' {
file=sprintf("./PER/F%.2d",NR)
print "H00"$1 > file
print "H01"$2" "$3 > file
print "H02"$2 > file
print "H03"$3 > file
print "H10"$4 > file
print "H1100" > file
print "">file
close(file)
} ' perso
>../data/perso/H
>../data/perso/HEAD
echo -n "    0     0">../data/perso/INFO
for i in PER/*
do
../ihd/bin/ihmu perso ../../import/$i
done
exit
