my $isdst = ( localtime(time) )[-1];
print "$isdst\n";