+sub updateSetBG ($) {
+ my ($image) = @_;
+
+ open my $log, '>', "$ENV{HOME}/.$FindBin::Script"
+ or error "Unable to open $ENV{HOME}/.$FindBin::Script for writing - $!", 1;
+
+ display $image, $log;
+
+ close $log;
+
+ open $log, '>>', "$ENV{HOME}/.$FindBin::Script.hist"
+ or error "Unable to open $ENV{HOME}/.$FindBin::Script.hist for append - $!", 1;
+
+ my $msg = localtime() . ":$image";
+
+ display $msg, $log;
+
+ close $log;
+
+ return;
+} # updateSetBG
+