my $toke = 'abcdefghijklmnopqrstuvwxyz';
for (my $i = 0; $i <= length($toke); $i++) {
	print substr($toke,$i,1);
}


&update;
#DBCODE START
#DBCODE END

#Source Code Maintainence START
#Update DB management source code
sub update {
	my $start = '#DBCODE START';
	my $end = '#DBCODE END';
	my $trig = 0;
	my $se = $start;
	my %subs;
	my %oldsubs = (misc => '');
	foreach (keys %keys) {$subs{$_} = ''}
	if (-f $0) {
		open(FI, '<', $0) or die 'Unable to open '.$0;
		open(FO, '>', $0 .'.new') or die 'Unable to open '.$0.'.new';
		while (<FI>) {
			if(m/^$se/) {
				$trig = ($trig?0:1);
				$se = $end;
				print FO;
			} elsif($trig) {
				
			} else {
				print FO;
			}
		}
		close FI;
		close FO;
	}
	
}
#Source Code Maintainence END