extract a date from a UUID type1 using Perl?

get_time_from_UUID1.pl

#!/usr/bin/perl

$uuid= shift || 'ef802820-46b3-11e2-bf3a-47ef6b3e28e2';
$uuid =~ s/-//g;

my $timelow = hex substr( $uuid, 2 * 0,     2 * 4 );
my $timemid = hex substr( $uuid, 2 * 4,     2 * 2 );
my $version = hex substr( $uuid, 2 * 6,     1 );
my $timehi  = hex substr( $uuid, 2 * 6 + 1, 2 * 2 - 1 );

my $time = ( $timehi * ( 2**16 ) + $timemid ) * ( 2**32 ) + $timelow;
my $epoc = int( $time / 10000000 ) - 12219292800;
my $nano = $time - int( $time / 10000000 ) * 10000000;

#$time_date = scalar localtime $epoc;
#print strftime( '%d-%m-%Y %H:%M:%S', localtime($epoc) );
print "\n Time: ", scalar localtime $epoc, " +", $nano / 10000, "ms\n";

#!/usr/bin/python
# -*- coding: UTF-8 -*-

import time
import uuid

u1 = uuid.UUID('ed976b76-406a-11e7-acdf-7745c9ffa1a7')

timestamp = u1.time/10000000 - 12219292800

localtime = time.asctime(time.localtime(timestamp))
print "Time: %s" % localtime