bin/laptop/update-weather


1
2
3
4
5
6
7
8
9

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

use Path::Class;

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