#!/usr/local/bin/perl

opendir(DIR,".");
while($file = readdir(DIR)) {
	if ($file =~ /\.html/) {
	     $file =~ /^(.)/; $dir = $1;
		if (!(-e "$dir")) { mkdir("$dir",0777); }
		system("mv $file $dir");
	}
}
closedir(DIR);