#!/usr/bin/perl

$base = "/www/www.manastorm.org/docs/Themes/BlackRainV2204/images";

@images = ("$base/eotm-logo1.png", "$base/eotm-logo2.png");
$dest = "$base/eotm-logo.png";

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
  localtime(time);

$index = $yday % 2;

$source = $images[$index];

$cmd = "cp $source $dest";

system $cmd;