Скрипт на языке Perl для получения данных об авиабилетах через API

Здравствуйте.

Необходимо разработать скрипт на языке Perl по поиску цен на авиабилеты, используя заданный API.

API:

https://developers.google.com/qpx-express/

Пример запроса:

https://developers.google.com/qpx-express/v1/json.samples/OGGNCE.in.json

Пример ответа:

https://developers.google.com/qpx-express/v1/json.samples/OGGNCE.out.json

Бесплатный лимит запросов на один аккаунт - 50 в день, так что будьте внимательны при тестировании!

Формат входных данных - YAML файл со следующей структурой:

departure:

date: '20-09-2015' # дата отправления

airport: MOW # аэропорт отправления

adults: 2 # количество взрослых

children: 0 # количество детей

arrival:

date: '30-09-2015' # дата возвращения

airport:

- SJD # аэропорт прибытия 1

- GCM # аэропорт прибытия 2

- BZE # аэропорт прибытия 3

- PUJ # аэропорт прибытия 4

Формат выходных данных - один CSV файл с лучшими ценами по каждому направлению (для примера выше в CSV файле

будет 4 строчки для направлений MOW-SJD-MOW, MOW-GCM-MOW, MOW-BZE-MOW, MOW-PUJ-MOW). CSV файл должен иметь

следующие столбцы (на английском):

- Departure airport (аэропорт отправления)

- Arrival airport (аэропорт прибытия)

- Departure Date & Time (дата и время отправления)

- Travel Time (время в пути туда)

- Legs (количество сегментов туда)

- Return Date & Time (дата и время прибытия)

- Travel Time (время в пути обратно)

- Legs (количество сегментов обратно)

- Lowest Price USD (наименьшая saleTotal цена в USD)

Строчки в CSV файле должны быть отсортированы по последнему столбику в убывающем порядке.

Просьба предоставить Perl скрипт с минимальным набором комментариев (желательно, на английском).

На данный момент интересуют сроки и стоимость.