use strict;
use LWP::UserAgent;



my $word = "happy";
my $url = "http://dic.naver.com/search.naver?mode=all&query=" . $word;




my $agent = new LWP::UserAgent;

$agent->agent('Firefox/1.5');
my $response = $agent->get( $url );

if( $response->is_success ) {
  print $response->content();
} else {
  die $response->status_line;
}