Someone

sub search639 {

	my @l_codes, @c_codes, @raw;
	my $LID, $CID, $query, $elURL;
	my $input = $ARGV[0];
	my $codesPile = 'C:/infobot-0.45.3/ibot/iso639-3.tab';

	open(ISO639, $codesPile) or die "FAILED; unable to open list: $!";
	@raw = <ISO639>;
	while (<ISO639>) {
		(@l_codes,@c_codes) = split("\t", $_);
	}
	close(ISO639);
	return @l_codes;
}