You could just put it on one line:

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

Or you could just re-jig it and compare directly:

print "Beta has expired\n" if ((localtime(time))[5]>102);

Update: Something I forgot to mention is that you can just compare against a specific point in time without all that bother:

print "Beta has expired\n" if (time() > 1034816374);

If you want to pick a date in the future, you can convert to time_t format using Time::Local which does the reverse of localtime().