open PUB_CAT, 'pub_cat.txt' or die "Can't open file: $!\n";
foreach (<PUB_CAT>) 
{ 	
	mkdir "../Online_Library/$_", 777;
}