#
my @out;
-
+my ($year) = (gmtime($main::systime))[5];
+$year += 1900;
push @out, "DX Spider Cluster version $main::version (build $main::build) on \u$^O";
-push @out, "Copyright (c) 1998-2002 Dirk Koopman G1TLH";
+push @out, "Copyright (c) 1998-$year Dirk Koopman G1TLH";
return (1, @out);