#!/usr/bin/perl

use LWP::UserAgent;

print "Content-type: text/html\n\n";

$user_agent = new LWP::UserAgent;

$user_agent->timeout(10);

$request = new HTTP::Request('GET' , 'http://www.ypbooks.co.kr/ypbooks/WebHome/dqsearch/isbn.jsp?isbn=8957590528');

$response = $user_agent->request($request);

print $response->content;

# end of script