use strict;
use warnings;
use Time::Piece;
my $x = '1415998800';
my $t = Time::Piece->new();
print Time::Piece->VERSION, "\n";
$t = $t->strptime( $x, '%s' );
print "Input $x\n";
print "Output ".$t->epoch(), "\n";
print $t, "\n";
print $t->strftime, "\n";
print "daylight savings flag is:",$t->daylight_savings, "\n";

__END__
1.30
Input 1415998800  <- interpreted as a local time
Output 1416027600 <- 8 hours ahead of input
Fri Nov 14 21:00:00 2014
Fri, 14 Nov 2014 21:00:00 Pacific Standard Time
daylight savings flag is:0

##</code><code>##

$t = $t->strptime( $x, '%s' ); ## to:
$t = Time::Piece->strptime( $x, '%s' );

##</code><code>##

1.30
Input 1415998800
Output 1415998800
Fri Nov 14 21:00:00 2014
Fri, 14 Nov 2014 21:00:00 UTC
daylight savings flag is:0