#!/usr/bin/perl

use DateTime;
use strict;
use warnings;

my $LOGFH = 'testdata';
my $/ = '\n';
my $x=0;
open(LOGFH) or die("Couldn't open 'er!");
while(<LOGFH>) {
   #chomp;
   print $_, "\n";
   $x++;
   last if $x == 2;
}


#   #print $_, "\n";
#   if ($_ =~ m!\|(.*)\|!){
#	$id = $1 . "|";
#        #print $id;
   }
   elsif ($_ =~ m!creationDate:\s+(\d+)!){
        ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($1);
	$dt = DateTime->from_epoch( epoch => $1 );
	print $dt->year;
   }
   #last;
}