#!/usr/bin/perl

use strict;

use Time::Local;
use Time::gmtime;

my($unixtime0h) = 27111902;
my($unixtime0l) = 3577643008;

my($ftime_str_h, $ftime_str_l) = split(/[\.\$]/, shift(@ARGV));

my($utime) = (hex($ftime_str_h) * 0x100000000 + hex($ftime_str_l) - $unixtime0h  * 0x100000000 - $unixtime0l) / 10000000 - (timegm(0,0,0,1,0,0)-timelocal(0,0,0,1,0,0));
print($utime."\n");
