open PUB_CAT, 'pub_cat.txt' or die "Can't open file: $!\n";
foreach (<PUB_CAT>) 
{ 	
	local $/ = "\n";
	chomp;
	local $/ = "\r";
	chomp;
	print "(<br> $_)";
	mkdir "../Online_Library/$_", 0777;
}