#
#
	my $dir = "/perl/$info[2] - $info[3]";
	mkdir ($dir);
	move ($_, "$dir/$_");
#
#