#!/usr/bin/perl

use strict;
use warnings;

use Time::Local;

my $time = timelocal(0, 0, 0, 1, 3, 104);  # create time value
my $time_str = localtime($time);   # textual time representation
my ($dst) = (localtime($time))[8]; # fetch daylight savings time flag
if ($dst) {
    print "Daylight savings in effect on $time_str\n";
}
else {
    print "Daylight savings time not in effect on $time_str\n";
}