use Weather::Google;
# Подключаем модуль
my $MyCity = ip2city($ENV{\'REMOTE_ADDR\'});
# Получаем название города
$weather = new Weather::Google($MyCity, {language => \'ru\'});
# Формируем запрос к Google
if( !$weather->temp_c) {$weather = new Weather::Google(\'Moscow\', {language => \'ru\'})}
# Если нет данных по городу, устанавливаем по умолчанию любой другой
@data = $weather->current qw(temp_c icon humidity wind_condition condition);
# Формируем массив с запрошенными данными
print for @data;
# Выводим содержимое массива