@t = localtime(time);
print "Daylight saving active" if $t[8] eq 1;