use strict;
use HTTP::Request::Common;
my $request= POST 'http://book.flypeach.com/WebService/B2cService.asmx/SearchLowFareSingleMonth',
         Content_Type => 'application/json',
         Content => '{"strFromAirport":"KIX","strToAirport":"HKG","departMonth":"20150606","returnMonth":"20150606","iOneWay":"true","iAdult":2,"iChild":0,"iInfant":0,"BoardingClass":"","CurrencyCode":"JPY","strPromoCode":"","SearchType":"FARE","iOther":0,"otherType":"","stIpAddress":"","strCurrentDate":"20150406"}',
       ;
print $request->as_string;
__END__
POST http://book.flypeach.com/WebService/B2cService.asmx/SearchLowFareSingleMont
h
Content-Length: 295
Content-Type: application/json

{"strFromAirport":"KIX","strToAirport":"HKG","departMonth":"20150606","returnMonth":"20150606","iOneWay":"true","iAdult":2,"iChild":0,"iInfant":0,"BoardingClass":"","CurrencyCode":"JPY","strPromoCode":"","SearchType":"FARE","iOther":0,"otherType":"","stpAddress":"","strCurrentDate":"20150406"}