use strict;
my ($yr) = (localtime(time))[5];
print "Beta has expired\n" if $yr>102;