#!/usr/bin/perl -w

use strict;


################################################# Creem les carpetes necessaries ######################################################

system ("mkdir -p ./P_coquereli/P_coquereli.FF");
system ("mkdir -p ./P_coquereli/P_coquereli.FSS");
system ("mkdir -p ./P_coquereli/P_coquereli.FSS/U");
system ("mkdir -p ./P_coquereli/P_coquereli.FSS/X");
system ("mkdir -p ./P_coquereli/P_coquereli.EX/GFF");
system ("mkdir -p ./P_coquereli/P_coquereli.EX/FA");
system ("mkdir -p ./P_coquereli/P_coquereli.QUERY");
system ("mkdir -p ./P_coquereli/P_coquereli.TCOFFE");

print "Les carpetes han estat creades correctament";
