#!/usr/bin/env perl

use strict;
use warnings;
use DateTime;
use Try::Tiny;

my $occuranceTime = "00:02:00";
my $occuranceDate = "03/13/2016";

my ($recordSec, $recordHour, $recordMin) = split ':', $occuranceTime;
my ($recordMonth, $recordDate, $recordYear) = split '/', $occuranceDate;

my $recordOnPST = try {
    DateTime->new(
        year => $recordYear, month => $recordMonth, day => $recordDate,
        hour => $recordHour, minute => $recordMin, second => $recordSec,
        time_zone => 'America/Los_Angeles'
    );
} catch {
    if (    /^Invalid local time for date in time zone/     and
            $recordMonth == 3                               and
            $recordHour == 2                                ) {
        warn "Looks like invalid DST timestamp\n";
        return DateTime->new(
            year => $recordYear, month => $recordMonth, day => $recordDate,
            hour => $recordHour +1, minute => $recordMin, second => $recordSec,
            time_zone => 'America/Los_Angeles'
        );
    }
    else {
        die $_; # try to rethrow other exception
    }
    return undef; # in case you don't want to return adjusted time
};

if ($recordOnPST) {
    my $recordOnUTC = $recordOnPST -> clone -> set_time_zone('UTC');
    print "$recordOnPST \n";
    print "$recordOnUTC \n";
}