ついカッとなって書いた。書くものは何でもよかった。いまは反省している。 use strict; use warnings; use Data::Visitor::Callback; use Imager; use Win32::Wallpaper; use YAML::Syck; my $cfg = shift or die $!; $cfg = LoadFile $cfg; $cfg->{include…