위의 김민균님의 영어사전 perl버전을 수정하여
국어사전을 만들어 봤습니다.
 #!/usr/bin/perl
 use IO::Socket;
 if ($#ARGV < 0) { die "eng <word>" }
 $server = "kr.kordic.yahoo.com";
$word = $ARGV[0];
 $remote = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>$server,
PeerPort=>"80", Reuse=>1)
    or die "Can't connect to "$server"";
# set buffering off
$remote->autoflush(1);
 $nl = chr(13).chr(10);
$end = chr(13).chr(10).chr(00)x4;
 $header = "GET /result.html?p=$word HTTP/1.1$nl";
$header .= "Host: kr.kordic.yahoo.com$nl";
$header .= "$end";
 # write HTTP request to server
print $remote $header;
 # recieve everything the server sends, and print it to the screen
$i=0;
while ($line = <$remote>) {
	if( $i < 63 ){
		$i++;
		next;
	}
	if ($line =~ /^<br>$/){ last; }
	$line =~ s/<(?:[^>'"]*|(['"]).*?1)*>//gs; # strip all html
tags.
	print $line;
 }
close $remote;--서명!! ^^