 <p>use the <a href="https://metacpan.org/pod/Time::Moment" rel="nofollow">Time::Moment</a> CPAN module:</p> <pre><code>use Time::Moment; my $data = 0x0FA89EEB0F; my $seconds = $data &gt;&gt; 8; # Right shift to remove fractional second. my $milliseconds = 10 * ( $data &amp; 0xff ); # Hundredths to Milli my $tm = Time::Moment-&gt;new( year =&gt; 2000, month =&gt; 1, day =&gt; 1 ); #base datetime my $tm2 = $tm-&gt;plus_seconds($seconds)-&gt;plus_milliseconds($milliseconds); print $tm2, "\n"; #&lt;-- prints: 2008-04-28T14:42:51.150Z </code></pre>