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