#!/usr/bin/env perl
use strict;
use warnings;

use Path::Class;

if (my $weather = `weather`) {
    file("$ENV{HOME}/.cache/weather")->openw->print($weather);
}