#! /usr/local/bin/perl
	if (open(INDEX,'</usr/personals/alias-index')) {
		$alias_index = <INDEX>;
		close(INDEX);
		$alias_index++;
	}
	else {
		$alias_index = 'a';
	}
print "$alias_index\n";
exit;
