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}/.weather")->openw->print($weather); }