use DateTime;

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

	my $recordYear = substr ($occuranceDate, 6,4);
	my $recordMonth = substr ($occuranceDate, 0,2);
	my $recordDate = substr ($occuranceDate, 3,2);
	my $recordSec = substr ($occuranceTime, 0,2);
	my $recordHour = substr ($occuranceTime, 3,2);
	my $recordMin = substr ($occuranceTime, 6,2);

	my $recordOnPST =DateTime->new( year => $recordYear, month => $recordMonth, day => $recordDate,
                             hour => $recordHour, minute => $recordMin, second => $recordSec, time_zone => 'America/Los_Angeles');
                             
       #my $recordOnPST =DateTime->new( year => $recordYear, month => $recordMonth, day => $recordDate,
        #                     hour => $recordHour, minute => $recordMin, second => $recordSec, time_zone => 'floating');
        
	                             
        my $recordOnUTC = $recordOnPST ->set_time_zone('UTC'); 
  
print "$recordOnPST \n";
print "$recordOnUTC \n";